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srl. 


presentano il 


primo dischetto 
di precisione 


- Formulazione ossido ad alta 
densità lineare 

- Coercitìvità fino a oltre 
600 oersted 

- Cltpphing leve! ai 65% 

- Densità fino a 18000 B P I 

- Capacità fino a 5 MB 

- Disponibili i nuovi dischetti da 3,5” 


HC SI." 

he magnetlc International line 


via passeroni 6 - 201 35 miiano corso dì porta nuova 34 - 20121 miiano 

tei (02> 577477 - 593353 - telex 340216 lei. (02) 661491 - 667641 




PER COMMODORE VIC 20 E CBM64, 
APPLE, MARI, IBM ED ALTRI 

Sirtus è la grande casa americana che programma e produce 
i videogiochi che più hanno successo nel mondo. 

Brinanti e pieni di invenzioni, graficamente perfetti i videogiochi 
Sirius sono ora disponibili in una gamma di oltre 40 titoli, 
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REBIT 

COMPUTER 


A DIVIJSQN OF 


NEL 1983 LA SEIKQSHA PER PRIMA AL MONCO 
E" IN GRADO DI PRESENTARE LA NUOVA STAMPANTE 
GRAFICA A SETTE COLORI. 

RIUNITE IN UN APPARECCHIO PRATICO E COMPATTO 
LE CARATTERISTICHE BELLA STAMPANTE E DEL RLOTTER, 
LA SEIKOSHA INVENTA UN NUOVO TIPO DI PERIFERICA 
CHE BEN PRESTO SARA" INSOSTITUIBILE. 

REBIT COMPUTER E" ORGOGLIOSA DI LANCIARE 
QUESTA NOVITÀ' ASSOLUTA SUL MERCATO ITALIANO 
AD UN PREZZO MOLTO, MOLTO COMPETITIVO: 

MENO DI UN MILIONE. 

MENO DI UNA COMUNE STAMPANTE IN BIANCONERO. 
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Commodoriani 


Questo “executive” 
me lo rubo 


Ai recente Smau, il noto comico e cabarettista Francesco Salvi , il 64 in versione Executive voleva 
quasi rubarlo. Ora sta preparando un film il cui protagonista è proprio computer Commodore . 



FRANCESCO Salvi non è solo 
appassionato di informatica. Lui, 
per i computerà ci va addirittura 
pazzo, E forse è per questo che è 
cosi abile e scaltro nel suo me- 
stiere di comico e cabarettista. 
Forse perchè ha la lucidità men- 
tale di un programmatore o for- 
se perchè usa un Commodore 
per memorizzare battute (di spi- 
rito). O forse perché è proprio 
pazzo. 

Ad ogni modo, la sua carriera 
va a gonfie vele, ÀI Derby e negli 
altri locali in cui si fa cabaret è 
contesissimo; alla RAI Rete 2 sta 
andando in onda la trasmissione 
Galassia 2, dove Salvi è r ospite 
fisso, e di certo contribuisce ad 
innalzare Tascolto della trasmis- 
sione di Boncom pugni. In proget- 
to un altro film fra computer* 
terminali video e stampanti: imo 


scienziato pazzo (vuoi il caso), 
che iia in mano il potere grazie 
alPutiiizzo dell’informatica. 

Alla recente manifestazione 
fieristica svoltasi a Milano, lo 
Smau* Salvi non ha saputo con- 

ri 

tenersi e, arrivato allo stand del- 
la Commodore, si è subito misu- 
rato con i ragazzina cercando in- 
vano di batterli con un Vie 20, 
Di fronte ad un Commodore 
200, ha perso quasi la ragione, ed 
il nuovo 64 portatile lo voleva 
addirittura rubare. * 
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C* Commodore 


a Roma 





P.le Asia, 21 - 00144 ROMA EUR - Tel. (06) 5916438 


CENTRO REGIONALE di 
DISTRIBUZIONE, VENDITA, ASSISTENZA 


• Vie. 20 e accessori 

• Dischi Winchester (Commodore) :5, 8, 22, 30 MB 

• Backup su nastro magnetico 

• Sviluppo procedure personalizzate 

• Contratti di manutenzione per parti di ricambio 



Vie 20 


Atterraggio 


Gira su Vie inespanso e richiede l'uso dei seguenti comandi: B per iniziare la discesa, S per virare 
a sinistra e D per girare verso destra. 
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160 
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296 
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490 


REM ATTERRAGGIO 


DI VIZIO 
MAURIZIO 
REM TEL 039/743092 

Jpii 1 p»»- p I j “JI<* «-1M r6M- -S— - U.K li,-, -fmi w*rir 

FOKE36879 ■ 8 
F’R I NT 11 rjal 
IFV=3THEN730 
FORK=0TO50 
7:;-;=RHna)*22 


ij *;=rnii a >«22 
l= 7680+;-;,';+22 *v;i 

PÙKEL.. 42UE/T 


X=0 

F0RK=XT021 
POR E 7 6 8 0 + K > 1 6 0 
FQRC=0TQ100 : MEKT 
POKE7680+R.* 32 
GETA# 

IFA*5"B"THEN380 

MEKT 

F0RK-2 1 TOKSTEF'-’ 1 
FOKE7680+K, 160 
FGRC-0TQ100 • MEKT 
POKE7680+Kj 32 
GETfl* 

I F fi#» " E ' ' T H EH3 80 
MEKT : GOT 0240 
FORESI 44, 232 
F0KE8 1 45 , 232 
P0KE315Ì, 232 
FORESI 53, 232 
FGKE8160, 232 
FORESI 61 1 „ 232 
F0RV-0TO21 
L=7680+K+22*V 
F-FEERCL) 
IFP=42THEN570 
I FF-232THEN630 
PGREL, 160 



500 FORT=0TO300 : MEKT 
510 POKEL , 32 
520 GETAS 

530 IFA$=" " THEN560 
540 I F : A$=" D “THEMR-K+ 1 
550 I FAt = " 8 '* THENK«K- 1 
560 MEKT 

570 flÌ="TWAI URTATO 11 
580 FRINIR# 

590 A#*":*JNA STELLA" 
600 F’RINTA# 

610 FOR'T=0T 02500 : HEXT 
620 V- V+ 1 : GOT 0.1 60 
630 FORK-0TO100 
640 P0KE36S79, K 
650 MEKT 

660 P0KE36879,.8l 


670 PRlNT TMSIttK" 

680 A$- : = " ATTERRAGG 1 0 " 
£90 FRI NT A# 

700 PR I NT " NUMERO " H+ 1 
7 1 0 FORT =01 03009 : MEKT 
720 N“H+ 1 : GOTO 150 
73S FRI NT "33 IOCO 
74t3 PR1 NT" TERMINATO 
750 PRINT l, :?FUNTr , ;N".« 
760 FORK*0TO3800 : MEKT 
770 FRI NT "ANCORA" , 

780 INPUT A# 

730 R#=LEFT$Cfi$, 1 > 

800 I F A# - " S 11 1 HENRUH 
810 POR E 36879, 27 
820 PRINT'Ti" 

REHDV. 
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per l’Italia dei 

prodotti VERBATIM lÉJw 
DATALIFE Vi ' 

propone oltre - , v i ( 

alla più 

completa ' 

gamma di \t>' 

supporti 

magnetici anche A 

armadi ignifughi t 

Rosengrens, nastri 
inchiostrati per tutte le 
stampanti, mobili e tavoli 
porta terminal! per 
l'arredamento dei CED. 

Con i prodotti MEE 
le registrazioni dei Vostri dati 
non hanno più problemi di 
affidabilità. 


£ ^ VI prego valer 

£ ì\ //'' inviare la vostra 

£ completa 

y donimentd2Ìon« 

relativa a: 

. ! n . , 

^ / J Dischetti 

e inoltre 

L_j Disk-packs .J Nastri inchiostrati 
; Armadi ignifughi Mobili per CED 
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cali for games® 


SEGRETERIA DEL CONVEGNO 

SEGRETERIA AICA 
tei. 02/784969-784970 
p.le MorancJi, 2 
20121 Milano 


LUOGO DEL CONVEGNO 

Palazzo ex -Stelline 
t.so Magenta, 61 
201 23 Milano 

L'area del convegno 
non presenta barriere 
architettoniche per i 
portatori dì handicap 


DATA DEL CONVEGNO 

2-3 dicembre 1983 


Nell'ambito di COMPU I ER PLAY 03 è indetta una gara aperta 
ai giochi informatici utilizzabili su elaboratori personali 
(programmi didattici, video games, business games, war games, 
scacchi, simulazione di gioco a carte, ecc.). 
i giochi saranno ammessi previo un controllo da parte del 
comitato promotore e verranno classificati in tre categorie: 

1 . Proposti da un singolo appassionato 
2. . Proposti da gruppi scolastici 
3. Proposti da aziende 

e verranno valutati in funzione soprattutto dei parametri: 

- fascino 

- qualità del software 

- valore innovativo 

- verosimiglianza 

- semplicità di impiego 

Saranno il pubblico ed il comitato di programma a determinare, 
con le proprie preferenze, i vincitori nel e varie categorie. 

Saranno disponibili in locoi principali elaboratori personali acuì 
i concorrenti potranno accedere liberamente per provare e 
dimostrare le loro creazioni. 

È indispensabile che il software inerente il gioco proposto sia 
memorizzato su di un supporto magnetico — cassetta o iloppy 
disk — compatibile con il sistema utilizzato. 1 concorrenti 
dovranno segnalare alla segreteria di COMPUTER PLAY 83 la 
loro intenzione di partecipare alla gara, la categoria in cui 
intendono concorrere, il nome del gioco proposto ed it sistema 
su cui è implementato. 

LA PARTECIPAZIONE ALLA GARA È GRATUITA. 



Commodore 64 


Roulette russa 

£’ una versione un po' più sofisticata del noto gioco, li gioco è sufficientemente descritto dai 
REMarks presenti nel programma. Va solo precisato che per " sparare " bisognerà usare i tasti da 
(1) a (6) e non un solo tasto che avrebbe reso ii gioco privo di qualsiasi emozione. Quindi 


caricate questo programma e buona fortuna. 



15 PRINT ”3 ROULETTE R U S S A” : PRINT : PRINT : PRINT 
20 PRINT "QUESTO PROGRAMMA £■' UNA SIMULAZIONE" : PRINT 
25 PRINT "DELLA NOTA ROULETTE RUSSA. " : PRINT : PRINT 
30 PRINT "AVETE A DISPOSIZIONE UNA PISTOLA A" • PRINT 
35 PRINT "SEI COLPI, CARICATA CON UN SOLO" PRINT 
40 PRINT "PROIETTILE. PRINT : PRINT 

45 PRINT "PER SPARARE, ATTENDETE IL VOSTRO TURNO, " ; PRINT 
50 PRINT "£ PREMETE I TASTI DA ri'] fi ['6 '1. 

55 PRINT: PRINT PRINT"#****** BUONA FORTUNA «**».«.»*" 
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5? FOR 1=1 TO 300G : NEKT I - GOSUE 1400 

60 REM 

61 REM - INPUT URTI 

62 REM — 

65 PRINT "T : INPUT" NOME BEL 1' GIOCATORE BirGlt="a "+LEFT$<GU^3)+" PRINT 
78 INPUT "NOME BEL 2' GIOCATORE U ;G2$ 'G2$-"a "+LEFT$(G2$,8)+" J " : PRINT 

75 INPUT "PARTITE DA EFFETTUARE "JH IF N/2-INT<H/£)O0 THEN 77 

76 N-N+l 

77 PRINT "T 

30 REM 

81 REM - STABILISCE CHI INCOMINCIA - 

82 REM - - — 

85 IfÌ=RNIKl)*2+l ; IF IJi*l THEN T=2 : GOTO 11C 
90 T=1 

105 REM 

106 REM - INIZIO GIOCO 

107 REM 

116 CQJisRNPU; *6+1= REFI * RUOTA IL TAMBURO * 

120 T=T+l:IF T>2 THEN T=1 

140 IF T=1 THEN D$="k" ; GOSUB 480 : PR I NT " T RE < 1 5 > 6 1 $ : GOTO 170 
150 Cf=' V : 11$=" " : G03IJB4C8 PR. I NT " TAB< 1 5 ) G2$ : C$= ” " :D$='V 

170 print " trb<6) " mm premi il grilletto *#** m 

188 GEI R$ : IF THEN 180 

190 IF RSC<fl£K43 OR fì3CCfi$)>34 THEN 1SG 

195 PRINT * TRB(15) " 

280 C?i=VRL(fì$) 

210 IF CJi=CQJI THEN GOTO 968 
220 GOSUB 833 
230 GOTO 110 

240 REM 

241 REM - AGGIORNAMENTO RISULTATI - 

£42 REM 

250 IF T=1 THEN 02=02+ P GOTO 278 

260 G1=G1+1 

278 IF G1>INT(NM£) OR 02>INKN/2> THEN 300 
286 GOTO 110 

290 REM 

291 REM - FINE PARTITA 

292 REM 

380 IF Gì >02 THEN fl$=Gl$'B$-G2T : G0T0 320 
313 R$=G2$ : B$=G1$ 

320 PRINT *T TABU 5) "V I N C E" : PRINT: PRINT 
322 E$='’G" : IF IEFT$(RIGHT$-IA$;3>, I)= n R“ THEN E$="R" 

325 PRINT TABv 14) R$ = PRINT : PRINT 

338 PRINT TABC4) "PER ESSER MORT" E$ " MENÙ VOLTE DI" ; PRINT: PRINT 

340 PRINT TRB(14) E $ :pRINT:PRINT: PRINT: PRINT 

350 PRINT"#*# VOLETE GIOCARE RNCGRA ? C S-N 3 #*#" 

360 GET A$ : IF A$= B " THEN 360 

370 IF RSC(A$>=83 THEN PRINT "IT :Gl=§ : 02=0 ; GOTO S5 

375 IF ASC<;A$>=?S THEN PRINT TAB',9) "SS!**#** CIAO #**##‘' 

377 FOR 1=1 TO 1069 : NEKT : PRINT " 72" : END 
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380 GOTO 360 
450 REM 


I* “Il u I 


I" Ci " 

I" Ci ">i " 

I" C^"xl " "" 

|'l N "Il j I II 


455 REM - STAMAfi TESTA E PISTOLA - 

460 REM 

480 PRINT "STJ 

490 PRINT TflECS) Ci “ 

500 PRINT TflB';?> Ci ^00<X>0000<\ N 

510 PRINT TRE (fi) Ci "/XXOC-COX^Xx" 

520 PRIMT TABCS5 B* "a ■" 

530 PRIMT TRB-;S5 Ci " X”"! I" Ci 

543 PRIMT TABCS) " K" ,l t 0 0 I" Ci "X 

550 PRIMT TRBC5) " t*"'T !" Ct"Xl 

563 PRIMT TfiB(6> C$ A I" Ci 

570 PRIMT TRBC7) "t f 

5S0 PRIMT TABC7) ”1 I" 

590 PRIMT TRBC7) "\ \ ✓ /" 

600 FRI NT TAB'IS) M \ /“ 

613 PRIHT TABC9) "\ 

620 PRIHT TflB(tl) "I I ,r 

700 PRIMT " SHrarasew” ; 

713 PRIMT TflB(25Ì> "a " 

720 PRIMT TABC28J i" 

733 PRINT TfìB<30> "I I" 

743 PRINT TR3(30Ì "U" 

755 PRIMT "Si" Gli 61 TRB<26) G2i G2 
763 RETURN 

780 REM — 

7S1 REM - COLPO A VUOTO 


782 REM 

900 PRIMT n 3":POKE VI, 1: POKE «,129= POKE A, 128 : PQKEH,21? ; PGKEL, 189 
820 POKE VI, 0 POKE W, 0: POKER/ 0 : RETURN 

895 REM 

896 REM - SPARO 

897 REM — 

300 PRIHT "SS” 

910 FOR S=15 TO 0 STEP -PPOKE Vl,S:POKE W,123:P0KE R,15:RGKE H/40-P0KE L/208 

920 NEXT S : POKE W , 0 = POKE fl,0 

10G0 POKE V+41/14 

1913 IF T=2 THEM POKE V+41,3 

1020 POKE V+21,4:PQKE V+5,93:POKE V+27,4 

1630 FOR K=290 TC 10 STEP -2 = POKE V+4,K ; NEX.T X : POKE V+21/0 

1040 GOTO 250 

1330 REM 

1392 REM - COSTRUZIONE PROIETTILE - 

1395 REM 

1400 V=53248 • POKE 2042/13 

1410 FOR M=0 TO 23 - READ Q ■ POKE ‘832+N, Q : NEKT N 

1500 DATA 7/ 255/ 255, 31/ 255/ 255/ 127, 255/ 255 ..205/ 255.- 255 

1510 DATA 255/255/255/127,255/255,31/253/255/7,255/255 

1600 VI =54296 : U=5427S : A=54277 : H=54273 : L=54272 : RETURN 


READY 
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Recensione 


Il sistema solare visibile 


Un videogioia istruttivo per Pie 20 v Commodore 64. 



E’ UNO dei pi li eccitanti Ira i 
nuovi g lochi introdotti dalla 
Commodore per il 64 ed il Vie 
20. ma proprio per questo è an- 
che uno dei più tl i Itici li. Richiede 
tutte le abilità dei videogiochi 
più complessi, ma al contempo vi 
obbliga ad imparare e a conoscere 
il sistema solare come un astro- 
nomo o un astro natila. 

Tu sei il comandante d'ima 
navicella spaziale in viaggio attra- 
verso il sistema solare. L'astrona- 
ve ha una velocità di crociera 
J'oltre ti a miliardo di miglia ed è 
equipaggiata con un sistema com- 
puterizzato* che vi consente sem- 
pre nuove evi eccitanti scoperte. 

Quando viene inserita la car- 
tuccia, visualizza Mercurio, Ve- 
nere. la Terra e Marie, che ruo- 
tano attorno al sole. Subito dopo 
appare la vostra astronave con. in 
primo pialloni pianeta Terra ed 
una serie di dati circa la sua di- 
mensione ed it suo moto rotato- 
rio, Nel corso del viaggio potrete 
visitare gli altri pianeti del sistema 
solane 

Per cominciare a giocare dove- 
te premere F 1 , 

Navigazione 

Per navigare disponete dTino 
schermo di controllo che consen- 
te di controllare e modificare la 


posizione della navicella, muo- 
vendovi dal centro dello scherma 
verso le orbite ili Mercurio. Ve ne- 
re, Terra. Marte e Giove. I nume- 
ri. che compaiono accanto ad 
ogni pianeta, indicano la distanza 
dal sole delle rispettive orbile in 
milioni di miglia. In rosso e se- 
gnata la posizione della vostra na- 
vicella. Sulla sinistra, ni alto, c se- 
gnata l'alt e zza dell’astronave 
l. sempre in milioni di migliai ri- 
spetto all'orbita dei pianeti 

Una telecamera rotante, instal- 
lata sulla navicella, consente d'os- 
servare le orbite ed i movimenti 
dei pianeti in una prospettiva tri- 
dimensionale, A sinistra. in basso, 
un apposito numerino blu indica 
l'angolo verso cui è rivolta la tele- 
camera. 0 significa che sta guar- 
dando perpendicolarmente sotto 


giunge gli 80 gradi, l'obiettivo si 
sposta l’ino a puntare ciò ette sia 
davanti. Per vedere le orbite dei 
pianeti, occorre premere il tasto 
V [da view = vista L Per tornare 
alla strumentazione bisogna bat- 
tere O, 

1 comandi per azionare Li na- 
vicelli sono: 

CRSR ■* per orientare la navicella 
verso destra U’oriemamento è se- 
gnato dal punto rosso }: 

CRSR ■- per invertire la direzio- 
ne: 

* per virare a sinistra; 

\ per andare avanti: 

G ordina alla navicella di spostar- 
si nella direzione segnata prima; 
Il muove la navicella verso fallo; 
D muove la navicella verso ì! bas- 
so. 


Campar?*" O ub - /■* 






Quest’anno, fatti un regalo intelligente: 
un computer dalle caratteristiche 
incredibili. Vediamole. 

1. Commodore 64 è potente, sofisticato, 
professionale. 

2. Ha una vastissima gamma di pro- 
grammi già pronti, lo usi nella professione, 
a casa, a scuola, nella ricerca scientifica, 
con facilità e totale affidabilità. 

3. Ha un'incredibile memoria (64 K), un 
sintetizzatore sonoro professionale. 


produce effetti tridimensionali. 

4. fi diverti perchè è anche un sofisticato 
videogioco, 

5. Con Commodore 64 entri nel futuro, 
tasto dopo tasto. 

6. Oggi Commodore 64 ha un prezzo 
incredibile: per L. 625.000 + IVA ti trovi 
anche un registratore, un videogìoco e il 
1° volume “introduzione al BASIC”. 

Quasi 230.000 lire risparmiate. 

Non è incredibile? 





- 


I *■— 




■ •' /-■ • V* V ■ 


-?*■ V V? ■ 

. 


1MST 

DEL 


Cl R 

HOME 


P V 1 


RESTORE 




L_!H 


r i ; 


lJ 


— 


RETURN 


IL 


SHIFT tRSK CRSR 


■■ ' ■ 

• ì? 





La ulivi ed hi e m grado di cf- 
fett mire due il inora ri animati p re- 
programmati, In Lui caso. il tasto 


piccola stólta blu, ìndica il piane- 
ta die avete zoomalo. Il termine 
OR BIT indica la disianza in ini- 


S consente di esplorare la super- 
ficie del sistema a disianza ravvi- 
cinata. Quando il giro è finito 
premete O. Col comando A. la 
navicella ss allontanerà di 500 mi- 
lioni di miglia da IL orbila di (.do- 
ve, verso forbita della Terra. 
Quando lo spostamento è finito, 
occorre battere ancora O, Questi 
spostamenti lasciano l’ astro mi ve- 
ti soli 15 milioni di miglia dalle or- 
bite solari, cioè motto più m bas- 
so di dove potete arrivare pilo- 
tando voi stessi l'astronave. Vo- 
lendo. potete effettuare le vostre 
esplorazioni da questa altezza, 
oppure, potete ritornare a 30 mi- 
lioni di miglia battendo F3 ed 
Fi. 

I pianeti in primo piano 

Per vedere da vicino i pianeti 
Terra. Giove e Saturno, è suffi- 
ciente battere P. Lo stesso tasto 
serve per cambiare pianeta. 

Sullo schermo in aito, si vede 
il diagramma del sole (a sinistra) 
e dei sette pianeti più vicini. Una 


glia dal sole: RADJIJS indica il 
raggio dell'orbita (sempre in mi- 
glia), L'anno ( YLAR) ed il gior- 
no ( DA Y indicano la data terre- 
stre, Solo alcune lune (MQONSÌ 
di Giove c Saturno, possono esse- 
re viste dal l’astro nave, 

Ogni pianeta ha una propria 
fa r/ a di g ra v i t ù . e W FI G H T ( p e ■ - 
so), indica quanto pesereste su 
quel pianeta, supposto che, stilla 
terra pesiate 160 fibre (ogni libra 
é pari a 453 grammi), AG E. indi- 
ca la vostra età in anni di quel 
pianeta, supponendo che sulla 
terra ne abbiate 24. 

A tale scopo, prima di visua- 
lizzare i vari dati, il computer 
planetario vi chiede di segnalare 
quale pianeta vi interessa ( batten- 
do il tasto P di P LAN hi), e di 

fornire t vostri dati personali 
^ ■ 

(battere V per richiederli) ed 
in particolare l'età (Age) ed if pe- 
so (' We ig h u . Per fornire questi u 1- 
timi dati dovete digitare C (da 
correct. esaLLo) se la cifra propo- 
sta dal computer è giusta, oppure 
M (more = di più) se va accresciu- 


ta. u L ( Ecss = meno), se va dimi- 
nuita. 

Il computer planetario 

Se vuoi maggiori informazioni 
sui sci principali pianeti (Mercu- 
rio, Venere. Terra. Marte, Giove 
e Saturno) o vuoi fare dei raf- 
fronti tra gli stessi, batti un nu- 
mero da I a 6, l dati visualizzati 
sono: 

* RADI US, ossia il raggio in mi- 
glia, 1 raggi di Giove e Saturno, 
indicano la distanza tra lo strato 
più denso di nuvole ed il centro: 

* YhAR, tempo di roteazione at- 
torno al sole, espresso in giorni 
terrestri: 

* M 0O,\'S> numero delie lune re- 
lative; 

* ORB/T, velocità di roteazione 
del pianeta lungo la propria orbi- 
ta in miglia per secondo; 

* I:SCAPh\ velocità (in miglia per 
secondo) necessaria ad uiTaslro 
n ave per sfuggire alla forza di gra- 
vità del pianeta: 

* 70 ATM, temperatura in gradi 
I arenile il sitila superficie delle 
nuvole del pianeta; 

* WARM A TM temperatura mas- 
sima in Fare 3ihe il; 

* SORTA CE, temperatura sulla 
superficie del pianeta, 

Se invece di numeri compare 
un asterisco, significa die quella 
precisa informazióne non è anco- 
ra disponìbile. 

Per me Ite re a confronto j dati 

+ 

di mi pianeta già selezionato eon 
quelli di un altro, occorre battere 
A. finche questo pianeta non 
compare sotto la scrìtta A ST RO- 
CA LC 
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Antiaerea 


10 REM - ANTIAEREA PER V1C 20 NON ESP AUSO 
12 REM BRUDI EMANUELE . TEL @39/749652 


14 REM FI -PER PUNTARE IL CANNONE IN CI AGONALE 

18 REM F3=PEF: PUNTARE IL. CANNONE IN AVANTI 

22 REM FS*PER PUNTARE IL CANNONE VERSO L" ALTO 

lyOO REM SPAZIO PER 

IODI REM SPARARE . 

1 002 Z=36878 ■ 0=368 ? 6 ■ B=36 877 

1810 POP E 36879 . U • FRI NT “ : PR INT " sUBjtel ANTIAEREA “ GQSUE1428 
1020 PRIHT"MB:IFFI COLTA' C1-100V INPUTL 
1 030 I FEO 20THE NS=£@ GOTO 1050 


1050 FRI NT “HAI".; S, "COLPI " 

106S FRI NT" il PREMI UN TASTO" 

1878 SETE? IFBf =" "THENGOT 01070 

1080 PRINT"^" P0KE36869, 254-- P0KE56, 24 ; POKE53/0 : P0KE65S , 255 ; Q-8186 : H=35 
1 090 FORK---0TO2 .5 REAUA POKEb 1 44+8*32+K , A NEXTK 

1180 DATA 0 .-0,0 , @ , 8 , 0 ■ @ , 8 24 ,.24.24.. 24 ,24,24,0, 24 ,16,12, 12/ 253 ,64,35,20,8 
1110 F0RK=0W3 : READ* - P0KE6 1 44+3*35+K , A : NEXTK 

1 120 BRTA6, 60, 12, 127,64, 35, 52, 104,56,95, 127, 255, 123,89,20,0, 62,62,20,255, 1,2,2, 1 

64 

1 1 30 FORK=0TO23 : RE ADA : POKE6 144+8*38+K , A ■ NEXTK 

1140 DATA64, 224, 112,56,28/8, 1, 2, 0, 0, 231 , 24, 255, 24, 36, 36, 56, 1 1@, 132,170,213,192,1 
10,56 

1 1 5ti T'ORK=en 0 1 5 = RE AD A ; PGKE6 1 44+K+8*4 1 . A ì NEXTK ; DAT A4, 4. 12,1 27 , 64 , 35 , 5.2 ■ 1 84 
1160 DAT A0 , 253 , 253 , 8 , 0 , 0 , U , 0 
1178 POKE7890, 33 

1 1 80 FORK*0T O50i •• 1 F PEEK ÌQ-K- 1 > 032 THEN 1 280 
1190 POKEQ-K, H : POKESt+l-K, 36 ; P0KEQ+2-K, 37 


1210 FORFa0TOD ' NfcXTF 
1220 1FA$«" "THENGOSUB1290 
1 238 I FRf= " THEMH-34 
1248 IFA*= ,, »"THENH=35 
1 250 I FA*="li" THENH=4 1 

1 260 POKEQ-K , 32 ■ POKE 9+ 1 ~K >32- POKE'Q+2-K , 32 
1 270 i F NOT V>S THENHEXT K 

1280 PRIMT"r]" : P0KE3S869, 240; PRLNT"HAI DISTRUTTO" ; P : PRINT" AVVERSAR I" : END 
1290 I E H=34 THENGOSU E 1 390 : FORX= 1T023 : 1 F PEEK< Q-K-XS23 > =39THEN 1 370 
1 300 I FH*34THENP0KEQ-K-X*23 , 38 : P0KEQ-K-X*23 • 32 : NEXTX • V=V+ 1 I FP>3 ANDO <7BTHEMFGKEQ 
-K-ló, 40 

1 3 1 0 I F H*34THEHRE T URH 

1320 IFH»4 1 THEHG03UB 1 39.0 : F0RX«1T022 : IFPEEK<Q-K-221X ) «39THEN 1 380 

1 330 1 FH®4 1 THENPQKEQ-K-X*22, 33 : R0KEQ-K-X#22 , 32 ■ NEXTX : V=V+ 1 - 1 PROSANDO <7 OTHEHPÙKEQ 

-K-16,40 

1340 IFH=4 1 THENRETURH 

1 350 00SUB1 390 ' FORX»iTO10 1FPE£K<Q-K-X>»40THENP»P+1 : POKEG-K-X, 32 : QÙSUB141Q 
1 360 POKEQ-K-X , 42 ; FOKR-8T05 ; NEXTR : POKEQ-K-X , 32 ; NEXTX : V=V+ 1 ; RETURN 
1370 P=P+ 1 P0KEQ-K-23#X, 32 ; C=RND< 1 >*i 10 P0KE7680+C, 39 ■ GOSUB1410 : RETURN 
1 280 P=P+1 : P0KEQ-K-22#X»32 : C*RNI)< 1 >*110 POKE7S80+C, 33 ; G0SUB1419 : RETURN 
1.398 P0KE2, 15 • FÙRL=l T03y : FDRM=250TO240STEP-1 POKEU , M ■ NEXTM : FORM=240TO250 
1 400 ROMEO ■ H ^ NEXTM : PQKEZ , 0 ; RETURN 

1 4 1 0 POKEU . 0 POKEB , 220 : FQRL= 1 0TO0STEP- 1 • P0KE2 , L : FORM» 1 10130 NEXTM , L = POKEB , 0 : RETI) 
RN 

1420 FORGIAI 03 : POKEZ, 1VFORL*1TG10 : FORM» 1 80TO235STEP2 • POKEQ, M • FQRN»i T01 0 '< NEXTN, M 
: POKEU, 0 

1430 FORM=1TO100 : NEXTM ; POKEZ, 0 ■ NEXTG : RETURN 
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PET/V1C 20 


Forza 4 


Un programma che è stato fatto per il PET< e di cui viene data anche la versione per il fratello 
minore VIC 20. 


IL GIOCO consiste nel riuscire a 
mettere 4 pedine dello stesso gio- 
catore di seguito, sìa orizzontal- 
mente, verticalmente, che diago- 
nalmente. 

Detto così può apparire faci- 
le: sembra un’ennesima edizione 
del tris, solo che invece di 3, so- 
no 4 le pedine da mettere in fila. 
Ma non è affatto cosi: infatti, sul 
video ci sono 1 2 colonne ( i 0 per 
ovvi motivi nella versione per il 
VIC), e ad ognuna di esse corri- 
sponde una lettera deiralfabeto 
(dalla À alla L), in cui si lasciano 
cadere le pedine, una alla volta a 
turno per i due giocatori- 

Queste pedine non si fermano 
dove vogliono, nè dove vorrem- 
mo si fermassero, ma hanno un 
ordine ben preciso: la prima, che 
per esempio metteremo nella co- 
lonna B, andrà sul fondo; la se- 
conda (sempre in B), andrà im- 
mediatamente sopra alla prima, e 
cosi via. 

Può capitare a volte di non ac- 
corgersi di aver vinto - e soprat- 
tutto di avere perso - perchè si 
era troppo attenti a seguire il 
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vittorie dei giocatori e viene in fila orizzontalmente* (verticale 
chiesto se si vuota giocare ancora mente e diagonalmente, il proce- 
e, nel caso affermativo, si comin- dimenio è il medesimo), 
cierà una nuova partita. Partendo dalla pedina che sta 

immediatamente di fianco a quel- 
Come funziona la appena introdotta, prosegue fi- 

no a quando ne trova una delTav- 
Dalla linea 150 alla 220, ven- versario o fino a quando non c'è 
gono chiesi i ì nomi dei due gioca- alcuna pedina, e poi torna ind is- 
tori (GIS e G2$i, e vengono fòr- tro contando le pedine: se risui- 
mate le stringhe AS e DS, che ta no essere 4 (o anche di più, co- 
servono per i print sul video, me può capitare), vuoi dire che si 

Da 250 a 300 vengono visua- ò vinto, 
lizzate ta colonne. La linea 990 si è resa necessa* 

Da 310 a 450 viene chiesto il ria per il caso in cui si voglia rriet- 
nome della colonna in cui si vuol tere hi pedina in una colonna già 
mettere la pedina, la quale viene piena, 
fatta cadere (390-450). 

Le linee da 470 a 740 servono Versione Vie 
per controllare se un giocatore ha 

vinto* cioè se ha messo 4 pedine Le uniche varianti riguardarlo 
di seguito. i valori dei PQKE sia per il vìdeo 

II procedimento per controlla- clic per il suono. Per il resto ta 
re questo è abbastanza semplice: versione per il Vie è essenziale 
supponiamo che il computer stia m e n t e i dentioa a quella del 
controllando se ta 4 pedine sono PLT, ■ 

10 P0KE36879..e ;RRINT pi r 

100 REM ^***^*$#^^*^^*^*^****^* 

110 REM m <C> EELLLK GIOVANNI m 

1 15 REM m VERSIONE VJC 20 ** 

116 REM ** RIVEDUTA DA m 

117 REM m CIANI GIUSEPPE ** 

120 REM *****$*$*$*fc**$^ 

130 PRINT 11 3" 

140 FQF:K= 1 1020 : Bf-I)t+ ,r 11 -NEXJ 

150 PRINT” SNOME PRIMO GIOCATORE'® 11 ■ IMPUTO lì 

170 PRINT" WKMME SECONDO GioCfiTOftEW 1 ' INPUT82* 

180 PQEE3S97R.15 
190 SS-36876 
290 PRINPT 

210 F0RK-lT0ì?:PRINT ,f [ I I I II I I M l'^NEXT 
220 PRINT" 1 — 1 — 1 — 1 — u — 1 8 — i—i — i» 

230 :FGRK=lTQ17:R$=A$ + ri r iNEtfT 

240 Bf“ u t ,1 :C*= ll O* 1 = R=7724:g=81 :C=S? 

250 PR INTASA 

260 PR I NT ” ?il ABCDEFGHI J w 


proprio piano dj gioco, ed e il 
computer che ce lo fa capire con 
lampeggi delta 4 pedine in fila e 
con suoni. 

Air inizio bisogna dare il no- 
me dei due giocatori, quindi, ini- 
zia subito ta partita: verranno di- 
segnate le colonne sul video e la 
scrìtta “player V' apparirà in bas- 
so a destra. Bisogna quindi dire al 
computer in quale colonna vo- 
gliamo mettere la nostra pedina - 
premendo il tasto relativo alla 
lettera indicante la colonna - ed 
allora la si vedrà cadere dalFalto 
della colonna scelta. Poi compari- 
rà la scritta “player 2“ e toccherà 
quindi al secondo giocatore, e co- 
si via fino a quando uno dei due 
non avrà vinto. 

Quando una colonna è piena 
non vi si possono più mettere pe- 
dine e. se si tenta , il computer 
ci dice di rifare. Alla fine del gio- 
co viene data la classifica delta 
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270 

770 

290 

300 

310 


330 

340 


360 

27& 

380 

85S 

395 

410 

420 

420 

440 

450 

4^0 

470 

480 

490 

580 

C t ”1 
J ., r ; 

570 

530 

540 

550 

560 

570 

530 


608 

6!0 

620 

£7* 


4411 


6^0 ? 
660 H 
67Ù P 
680 I 
630 ! 
700 I 
710 I 
720 J 
730 F 

740 F 

750 P 
p 

• - » 
TiTrt 

.■ ^ rfT — 

1 * * 


u= 1 :»PI w T flf "PLRVER ! «llllir’ ; •• GOSUP? 1 ? 

U=£ : COSUB330 

D=C : U=? ' e& T WTP» "RLRVER 2 IMISII" ; • GGSLIBS 1 8 = GOSUB330 G0T0278 

EHI 

G£T»1$ ^ IP|1K"fi"0RMC " J"THEH310 

PRIHTMJ; : RETURN 

REFI 

w»fl + 1 * <ì*sc ( M*> -S5 > *2 
P0RK«WTD8873STE°22 : 1=1+1 

IFPEEKCK" 1 '>S2 TU E Kip 0KEK-£2 T| : HaK-22 : K«S0?3 : OO T ??£0 
POKEK, li ^ PÓRPP-1TO-1* : MEI# 

POKPST . 1 35+1*4 ■ F0R0=IT02*I : NEKT ’ F'OKESS, 8 : °0KEK, 32 = NEXT : 1=1+2 

POKESS, 135+!44 : FORJalTO20*I : NEXT : P0KES8: 7 IFK4THENPRIHT"RIFPI " 1=9 GOTO 1999 
T =a 

■ »i 

Pnt?.Tal T 04 

I FPE EK % W K >ST H EHP 1 = J : _T=4 : 3O t C'430 

MFVT T ■ T-Pi ; F)J1 T n44ià 

NFHT .T : Jsft 

F0RJN1TO4 

IFPEEK< W*< e 1 ^2- 7*2>=IiTHENR=R+l : IF^4THEHPR INTERI VINTO 11 P^2 ■ 9QTD680 

NEKT : P=0 

J=0 

F0BJ-IT04 

IFPÉB?.<N+20WK>PTHEW-i?®J - J=4 

NEXTJ:.J=0 

-OPJ-1T04 

IFPEEK<W+R2^20-,T*28^TfTMEHR-R+1 ‘ t Ms^hENRR ujt H CHR I VINTO 11 * -20 • ?O T O6?0 
NE^t:P=0 

J=0 

POR J= ITO 4 

I^'Et^^J+22* _nODTHENfl3=J : J-4 

NEKT J ■ -J=0 

F0P>1TO4 

IPPEEKCN J -03f22-J+£2)=r T HENR=R+l ' IFR*47NE L ^ DT ^ r!l ?3HRI VINTO 11 P=22 -0010680 
F0RJ-1T04 

I FPEEK<M+2 4 '4T50I)TMENP 4 = t : T=4 

NpyT J ’ ,T=0 
cr-jp.T-iTijà 

T cp EE k U^^24-.J*24)=D7 ^mp=^^ : : -RMTH0FRINT M SHRI VINTO 11 F-24 : GOTQ680 

NEXT -R=0 

RETURN 

I Fp«2THENK-m 

IFF-20THENN-P2 

IFP^SÉTWB*K=fl3 

IFP=24THENX=P4 

FOP7=H03Q 

F0RJ=1T04 

POKEi j+sisfcP-j»^ 

P 0KE85 75 ■ rr-Du = 1 Tri * mpvt : PQKESO > 0 : HEN T J 

-ORK'1TO10’HEXT * 
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78® FORJ=)TGi 

790 pn*cpu+x*p-j#p , I 

300 POKESS » 174! FORH= I TQ1 : HEXT : POKESS , 0 ■ NEKT.J 
310 NEMTZ 

320 IFH=81THE l lPj =°1+J. : GOTO840 
830 F‘2=P2+ 1 
840 PRIHT’T 

850 PRHT-’^PVER 1 : M" : PR I NTG ♦ $ : P«? J IT " 1PyN T ! '' 

860 PRTNT ,1 SM*PLS’-’FR 2 : MT02* : PR IHT - ’ JTUNT ! 

870 PRIHT ,, MfiE<iafìHCORP ? 'SAP" 

880 O3T04 : IFfi$=" “THEIÌ330 
890 IFRf<>"3"flHDfiSO"H"TrlEH883 
908 !FR$= " N-’THENENE ^ END : END 
319 GCTO130 

1 000 PGKEW 32 : F0RG= ITO 1000 : -‘EXT . CIMI. IG070276, 238 


VERSIONE FET 

* * * * * * ;' fi * * 4i * * * * * * * * * * * * * * 

150 PRIMI" □" 

160 fìf="Sj" : FORK= 1 TO 1 7 : ft*»A*+ "S" :NEXT 
170 PR I NT* afflasi" TfiB <1 0V'F O R 2 fi - 4 
1 se F’R I NT : PR I NTTAB < 8 > 11 BV BELLU ' G I OVFlNH I " 

ISO F0RK-1T04G !D$= B D*+" " sHEXT 

280 PR I HTA* " NOME dPRIMO» GIOCATORE" : sINPUTGl* 

210 PRINTA*D* 

220 FRINTFt* “NOME jSSECONOO» GIOCATORE" s s INPUTGfl* 

230 PGKE59467 ,16; P0KE59466 , 1 6 
24@ SS =59 4 64 
250 FRI NT "3" 

260 FGRK=1TG1 5 SPRINT" I ! I I I I I ! I I I I 1“ : NEXT 

£7£i PRINT" L 1 1 1 — 1 — 1 — J — J — i — 1 — i— 1 — I " 

230 B*="»“ :C*="o" ;R=32848 ;B=31 :C=S7 
290 PR INTASO* 

30O FRINT"Sn fiBCOEFGH-IJ K L" 

310 U=1 SPRINTAI "PL AVER 1 IMil" J : GOSUB350 

320 D=B SGOSUB370 

330 D=C sU«*2 SPRINTA*" P LA VER 2 IfllKi" t :GOSU6350 :GGSUB370 :G0T031 0 

340 END 

350 GETMì : I Ff1*<"A" GRN*>" L " THEN350 
36G PRINTItT: RETURN 
370 REM 

380 W=A+ 1 + < HSC < Mf ’> -65 > *2 
390 FQRK-UTO33580STEP4O ; 1 = 1 + 1 

400 I FPEEK K > OS2THE NPGKEK- 40 , D ; U-K-40 : K=33500 ; GOT 0420 
410 POKER; , D : FQRPF = 1 TO 1 0 sHEXT 

420 POKESS ,15+1*10 sFORG- 1 T02* I ; NEXT ; POKESS - 0 s POKER , 32 : HEXT ; I = I +2 
430i POKESS ,15+1*10; FOR J= 1 TO20* I : NEXT : POKESS , 0 
440 I F I =4THENP0KE W- 40 , 1 60 

450 1 F 1<4 THENPRI NTR* " j*:I F B I ■ '* s I =0 : GOTO'990 
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466 

1=0 



476 

F0RJ=1T04 



48© 

IFPEEK<U+J*2>ODTHEHIRl«J sJ=4 :GOT0508 



496 

NEXTJ :J=© :GOT0510 



560 

NEXTJ : J=© 



516 

FORJ=i T04 



526 

IFPEEK<W+<iìi >*2“J#£i=DTHENR=R+l : IFR=4THENPRlNT"iSBHfìI 

VINTO 11 

;P=2 SGOTQ750 

53© 

NEXT sR^© 



546 

J=0 



S5e 

FQRJ«ÌT04 



56© 

IFPEEKC W+3S* OCiTHEHR2=J : J=4 



57© 

NEXT Ja J=S 



58G 

F0RJ=iTG4 



59© 

IFPEEK C M+*2*3d-J*3S 1 -DTHEHR-R+ 1 : 1 FR-4THENPR I NT" SSHft I 

VINTO" 

:P=3S sGDTQ75© 

606 

NEXT : R— © 



61© 

J=6 



626 

FQRJ= 1T04 



630 

I FF EER C 1*1+4©# J > OOTHE N fi 3= J sJ=4 



640 

NEXTJ : J=0 



65© 

FGR J= t Tu4 



66© 

IFPEEKCM+fi3*40- J*4©> -DTHENR=R+ 1 i IFR*=4THENPRIHT" SSIFlI 

VINTO*" 

:P— 40 :GOTO730 

67© 

NEXT :R=© 



68© 

OR J- 1 T04 



69© 

1 FPEEK OJ+42* J >ODTHENR4= J : J=4 



708 

NEXTJ: J=0 



710 

FQRJ= 1 TG4 



72© 

I FPEEK < N+ R4*42- J $42 > -DTHENR^R* 1 : IFR--4THENPRIHT M EfeHRl 

VINTO" 

:P^42 : GOTO 750 

?3Q 

NEXT sR=0 



740 

RETURN 



75© 

IFP=2THENX=P1 



760 

I F P =3&THENX= R 2 



77© 

IFP=40THENX=FI3 



78© 

IFP=42THEHX=(Ì4 



79© 

J=4 :NEXT 



86© 

FORZAI TO30 



81© 

FORJ“ 1 T04 



820 

PGKEW+X$P-J*P,42 



338 

POKESS , 75 : FORÒ- 1T01 s NEXT : POKESS . 0 : NEXTJ 



848 

FORKMTO10:NEXT 



358 

FQRJ=lTCt4 



860 

POKEW+X#P- J*P , D 



870 

POKESS, 174 :F0RH=ÌT01 :NEXT : POKESS, 8 :NEXTJ 



380 

HEXTZ 



S9© 

IFD=S 1 THENF 1 =P 1 +■ i :GOTO910 



90© 

F2=P2+ 1 



910 

PRIHT^" 



920 

PRIMI "PLflVER 1 : n jGl$; rl = PUNTI "spi 



930 

PRINT"PLFtV£R 2 :"j02*;" = PUNTI ";P5 



94© 

FRINÌ" jjjfifclap N CORO ?" 



950 

GETQ* : IFG4~ “ ” THEH350 



960 

IFQ*O' , S ,, RNDQ*O ,, N , ’THEN950 



97© 

I FQ*= 11 N M THENENO : END ; END 



930 

G0TQ23© 



99© 

POKEN,lb0 :FÙRG-1 TO 1 000 : NEXl i ONUGQTO290 . 3 1 6 



RERD'r 

* 
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MDA è qualità assoluta sia nel campo dei 
dischetti che delle cassette magnetiche e 
dei nastri inchiostrati. 

Una tecnica dì spalmatura esclusiva assicura 
a dischetti Brown Disc un rivestimento 
di minor spessore, quindi una maggiore densità, 
mentre il particolare sovrari vesti mento ed un 
Jayer di alta qualità migliorano le caratteristiche 
di adesione/coesione e la durata del dischetto 

e delle testine. 
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Vuoi andare oltre il basic? 

Scopri il mondo del PASCAL 
Computer” questo mese 
ti dà la prima delle tre dispense 



Se stai comprando un persona] 
computer prova a farti queste domande: 

1 . Chi è oggi il più affidabile? 

2. Chi dà la possibilità di scegliere fra 
più sistemi? 

3. Chi fornisce soluzioni, subito, 


in una gamma vastissima? 

4. Chi propone il miglior rapporto fra 
costi e prestazioni? 

5 . Chi ti dà una così grande esperienza 
ed assistenza? 

A tutte le domande puoi rispondere con 




un solo nome: Commodore Computer. 

Anche per questo Commodore 
è il Numero 1. In Europa e in Italia. 

Sei in buone mani, 

Commodore Italiana Spa 
Milano, telefono 02/6125651 


fi Commodore 

COMPUTER 




m&p COMPUTER è una pubbli fazione del 


Via del Casaletto 380 - 00151 Roma 
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7.Le altre funzioni 
(seconda parte) 


Funzioni definite dalFutente 

IJ Computer ha la possibilità di utilizzale fun- 
zioni definite dalFutente mediante l'uso delFistru- 
zione DEF FNx, che assume la forma generale se- 
guente; 

numero di lìnea DEFFNxf variabile) = espres- 
sione 

Tutte le funzioni definite in questo modo devo- 
no avere all'interno del programma un solo nome 
definito da FNx, dove x e il nome dì variabile, 

Tutte le funzioni hanno un argomento fittizio 
dato dalla variabile racchiusa fra parentesi, mentre 
quello reale, usato quando la funzione viene succes- 
sivamente menzionata nel programma, sarà diffe- 
rente dal primo nella definizione della funzione. 
Per esempio, l'espressione precedente, usata per ar- 
rotondare un numero, può essere definita come 
funzione con V istruzione seguente: 

50 DEF FNR(A)=INT(À/F + 0,5)*F 
che può venire in seguito utilizzata nello stesso pro- 
gramma per arrotondare un numero, ad esempio 
alle centinaia e ad una cifra decimale come riporta- 
to nella tabella 7.5. 

140 F=0.1 

159 C1*FNR<C> 

160 FRINÌ bi~ ,j ;bi 

165 PRINT lf O"jC; JS C1=%C1 

179 PRINT 

180 DOTO 60 
190 END 

Tabella 7.S Programma di arrotondamento di numeri 

Le funzioni definite dalFutente possono conte- 
nere a loro volta, nella loro definizione, altre fun- 
zioni dello stesso tipo. Per esempio, il programma 


delia tabella 7,6 tabula ì seni di un certo numero di 
angoli (noti,) e gli angoli corrispondenti espressi in 
gradì alla seconda cifra decimale, 

20 PRINT 0 SENO 0RRB1 " 

30 PRINT” " 

40 PRINT 

50 DEF FNRCfl>=INT<ft/0.1+8*5>*0.1 
60 DEF FNB«l>=180/(flTNa)*4) 

70 DEF FNn<S)=tflTN<8/36R<l-3«))>*FNBCU> 

80 INPUT X 

90 IP THEN 160 

100 IF X<i THEN 130 

105 IF X>ì THEN FRI NT 11 ERRORE" : GOTO 30 

110 D=90 

120 GOTO HO 

133 D-FNR(FNft<;*p) > 

140 PRINT TftB<D;«;TRB(9>;B 
150 GOTO se 
160 END 

Tabella 7,§ Seni e angoli {in gradi) 


Esercizi 

Problema 1 - Raggio di un cerchio circoscritto 

Scrivete un programma che permette di trovare 
il raggio di una traccia circolare passante attraverso 
i punti che formano un triangolo. Il raggio (r) del 
cerchio che inscrive il triangolo è dato dalla formu- 
la: 

_ a _ b _ c 
2senÀ 2senB 2senC 

dove a, b. c e A. B. C sono rispettiva meme i lati e 
gli angoli dei triangolo. 

Il programma è riportalo nella tabella A 10, i 

» 
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risultati, cioè; a = 452rru b = 386in e c - 739 m 
sono invece indicati ne IV Appendice B. (Nota: cos B 
= (a 1 + e 1 -b 1 )/2ac.) 

Problema 2 - Aree di triangoli 

L’area di un triangolo con i lati a, b e c e gli 
angoli A3 e C. può essere calcolata se sono noti tre 
lati o due lati e l'angolo compreso usando una delle 
dite formule seguenti: 
area del triangolo -V(s(s-a) (s-b) (s-c)) 
dove 2s = a+b+c 

o area = 1/2 absenCo l/2bcsen A o l/2acsenB 
Scrivete un programma che riporti le aree dei 
triangoli della Tabella 7.7 usando le intestazioni 
adatte. Ricordate che i valori sconosciuti devono 

essere fissati a zero, Fate in modo che tutte k aree 
vengano calco late Ln centimetri quadrati con nume- 
ri arrotondati alla prima cifra decimale. Il program- 
ma è riportato nella Tabella ÀI I s i risultati nell’ap- 
pendice B. 

Lati del triangolo (cm) Angolo compreso 


a 

b 

c 

(in gradì) 

17.2 

9.S 

14,1 

0 

0 

74 

98 

125,4 

292 

0 

405 

30.5 

10.3 

15,6 

0 

69 

-1 

0 

0 

0 


Tabella 1,7 Dati usati per calcolale le dei triangoli 

Problema 3 - Volumi dei solidi 

11 volume di un solido con l'area della sezione 
trasversale (A) uniforme e di altezza (H) è dato 
dalla formula: 

V « A x H 


Nella tabella 7.8 sono riportate, assieme ai loro co- 
dici, le aree delle sezioni trasversali dei solidi più 
comuni 

Codice Solido Area sezione trasversale 

1 cubo base x altezza 

2 cilindro ex r 1 

3 poliedro esagon. J/2 V 27 x f 1 

b ~ base h - altezza l - Iato r = raggio 

Ta batta 7 r e 

Scrivete un programma che calcoli i volumi di 
questi solidi, in modo che tutte Je dimensioni ven- 
gano espresse in centimetri. Il nome del solido va 
indicato nell'istruzione DATA in modo che il pro- 
gramma generi assieme al volume il nome, del solido 
cui esso si riferisce. Per porre fine alfesecuzione del 
programma, potete usare il codice 0. Per avere dei 
codici di prova adatta, attenetevi a quanto riporta- 
to nella tabella 7.9, ricordando comunque che po- 
tete aggiungere anche dati di vostra scelta. 

Prima Seconda N. di 

Codice dimensione dimens* Altez* cifre dee* 
(b, l r) (ho zero) (h) 

2 4,5 a 1.75 2 

3 12,6 0 250 0 

I 5.3 7.0 4.2 1 

Tobsllp 7.3 Dati par il problema "Volumi di solidi" 

II programma permette all'utente di arrotondare 
il risultato ad un certo numero di cifre decimali 
usando un fattore di scala (F) {vedi il paragrafo dal 
titolo “Atto tonda mento”). 


■ 
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Vuoi partecipare a Tandem? 


‘Commodore Computer Club*' 
invita i lettori a partecipare alla 
popolare trasmissione della 
Rai Due con videogiochi nuovi 
ed originali. Ecco come fare , 


RAI, Rete 2, ore 1 4,35 . Nessuno 
spot, niente pubblicità nè TG 
speciali, ma Tandem. Una tra- 
smissione di giochi, attualità cd 
ospiti che, per il suo svolgimento, 
ci richiama più alla memoria i 
banchi di scuola che Mike Buon- 
giorno, Una trasmissione che va 
in onda tutti ì giorni dal lunedi al 
venerdì, e che può contare su di 
un alto indice di telespettatori, 
non solo giovanissimi, che seguo- 
no, partecipano e giocano a di- 
stanza secondo la riuscitissima re- 
gola del coinvolgere attivamente 
il pubblico a casa. Una trasmis- 
sione collaudata, visto che utiliz- 
za, in combinata con altri games, 
il "Parohamo” che è già andato 
in onda con successo, qualche an- 
no fa.su Tele Montecarlo condot- 
to da Lea Pericoli, 


Tandem è condotto quotidia- 
namente da Claudio Sorrentino 
cd è curato da Ettore Desideri. II 
pubblico presente in sala, è com- 
posto da ragazzi di scuole medie 
superiori ed i contendenti sono i 
"capoclasse” che si sfidano a no- 
me della classe o deir istituto al 
gioco del Paroiiamo, Una sfida al- 
la quale può intervenire, annun- 
ciato da un segnale, un compu- 
ter, I ragazzi scelgono una serie 
di consonanti e di vocali estratte 
a sorte e con queste tentano di 
comporre la parola, aggettivo o 
sostantivo, più lunga possibile. 
Parola che, naturalmente, deve 
avere senso ed essere presente nel 
vocabolario della lingua italiana, 
severamente consultato dai giudi- 
ce Marco Da nè, I giovani concor- 
renti spremono le meningi e sul 
computer gira il programma di 
autoistruzione. 

E 1 sempre seguendo il concet- 
to delPinterattività che su RAI 2, 
nella trasmissione Tandem, sono 
stati inseriti altri interessanti gio- 
chi quali "T.P/ f e “RAIDUE” 
Vediamo di che cosa sì tratta. 


"Telephone Pois” (T.P.), accom- 
pagna tutte le trasmissioni di 
Tandem c grazie ad una centrali- 
na telefonica computerizzata è pos- 
sibile effettuare sondaggi in diret- 
ta con il pubblico a casa. A1F ini- 
zio del gioco-sondaggio, :il presen- 
tatore annuncia un quesito; uno 
di questi è stato: "Esiste, secon- 
do voi, la vita nello spazio? 

I telespettatori, con l'ausilio 
del telefono, chiamano i numeri 
indicati e comunicano alla voce 
sintetizzata del Telephone Fole la 
scelta personale alTopzione che il 
computer ha presentato. 

Con “d’accordo-contrario” si 
determina ['andamento del son- 
daggio che, per ora, può avvenire 
mediante 15 lince telefoniche en- 
tranti in contemporanea. Per ora; 
dato che “T.P.” è una macchina 
modulare e, quindi, estendibile 
ad un potenziale utilizzo molto 
più grande, addirittura un centi- 
naio di linee telefoniche. Presto 
arriverà anche un chip, che per- 
metterà alla macchina di amplia- 
re la gamma del quesito, esten- 
dendo la richiesta a quattro ele- 
menti fra i quali sarà possibile 
scegliere rispondendo, per esem- 
pio, con A ■ B - C o D, 

La necessità di ampliare il 
“Telephone Fole" non è dovuta 
solamente al desiderio di far gio- 
care più persone nello stesso arco 
di tempo in cui è possibile parte- 


ia : 


ra 
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cipare al sondaggio, ma la validità 
de] sondaggio stesso è diretta* 
mente proporzionale al numero 
dì chiamate ricevute. Il che equi- 
vale al numero di linee telefoni- 
che allacciate, per evitare che que- 
sta parte del programma perda la 
validità peculiare della diretta, hi 
effetti, non esiste altro tipo di 
questionano collettivo hi tempo 
reale, 

1 dati raccolti dai “Tclephonc 
Fole ' vengono subito annunciati 
dal presentatore che è cosi in gra- 
do di confermare l'esito del son- 
daggio. 

Altro intervento diretto, che è 
possibile instaurare con Tandem 
neiredizìone del giovedì viene 
dato dalfopportunUà di giocare 
con il videogame “Raidue" ed il 
telefono, ÀI via, sul teleschermo, 
compare fa strana ve ET, che ma- 
nifesta la chiara intenzione di mi- 
nacciare la sicurezza delta vita 
sulla Terra. A noi terrestri non 
resta che la possibilità di difen- 
derci con Pausino del computer, 
che governa i controlli dei canno- 
ni-laser. Telefonando ai numeri 
indicati sul teleschermo e pro- 
nunciando la micidiale parola di 
codice 11 Rai due", daremo il via ai 
colpi sparati dai nostri canno- 
ni-laser, cercando di eliminare il 
maggior numero possibile di Ex- 
tra Terrestri. E' la voce dciruten- 
te al telefono che si sostituisce ai 
tradizionali comandi joystick o 
pad di e. ed il videogame si fa 
grande, a livello nazionale, grazie 
alla trasmissione via etere. Unico 
neo è che, se i fortunati possessori 
di videogiochi personali possono 
essere tanti, ma isolati, i conten- 


dentiiiella battaglia “Ruidue" non 
possono essere altro che due per 
vi > Jt a , i p rim i . q u ind h che ha n no oc- 
cupa to le linee telefoniche o i pri- 
mi che hanno raggiunto le posta- 
zioni di difesa SIP al messaggio di 
invasione da parte di Extra Terre- 
stri. 

Il venerdì a Tandem arriva 
“ Invideo News", sette minuti di 
immagini e musica (e clic imma- 
gini e che musica! ) dedicati ogni 
volta a videogiochi. Commodore 
in gran parte, applicazioni dei- 
fole Uranica nel campo delle tele- 
comunicazioni, software o mes- 
saggi spaziali. Ovviamente, questi 
sono ì pus iti elle verranno svilup- 
pati nelle varie puntate di “Invi- 
deo News”. E siccome, dice un 
comunicato, “non è facile effet- 
tuare e capire gli effetti dell 1 in- 
formatica sulla vita personale e 
sociale delfuomo”, e pertanto ri- 
sii! t crebbe altrettanto, diffìcile 
“fornirne una descrizione siste- 
matica”, si è preferito dare una 
serie dì informazioni sfaccettate, 
raccolte ed unite casualmente, 
ponendo particolare attenzione 
all'esito grafico ed alla somma 
im magi ne statica-immagine in 
movimento, abbinandole al suo- 
no, per dare la sensazione della 
spettacolarità o rendere nel piu 
affascinante dei modi le informa* 
zio ni, che provengono dal nuovo 
inondo dell" informatica c dei vi- 
deo-games. 

Abili realizzatori di questa 
pane del programma di Tandem, 
che va sotto il titolo di “hi video 
News", sono i ragazzi dello Stu- 
dio Pùntacelo, che sotto l’in- 
fluenza di un regista affascinato 


quanto un ragazzino dalle possi- 
bilità offerte dal computer e dal 
mezzo televisivo, hanno concen- 
trato in questi sette minuti, una 
grande quantità di notìzie utili, 
affascinanti ed interessanti, quan- 
to misteriose, 

Ma torniamo un po' indietro 
ne! palinsesto settimanale di Tan- 
dem. Il martedì, è fattività ludica 
che fa spettacolo. Dei ragazzi so- 
no invitati in studio a gareggiare 
tra loro con i videogames dispo- 
nibili, La Commodore ha messo a 
disposizione di'] arnioni numero- 
si programmi per il Vie 20, ed ì 
ragazzi si dimostrano espertissimi 
conoscitori di battaglie ed atter- 
raggi spaziali, da effettuare con 
questi sistemi. 

Anche Commodore Computer 
Club vuole partecipare a Tandem, 
ma, essendo una rivista, non può 
che invitare i suoi lettori a parte- 
cipare alla trasmissione televisiva 
della RAI 21 Allora forza, al la- 
voro. Inviando in redazione i pro- 
grammi dei giochi die avete rea- 
lizzato per una qualsiasi macchi- 
na Commodore, potrete essere 
invitati a dar prova delta vostra 
abilità negli studi della '1 V. 

Una commissione costituita 
dalla nostra redazione, per 
f aspetto tecnico dei programmi, 
e dallo Sturilo Pont accio, per va- 
lutare 3 'effetto grafico e la “tele- 
genia" dei videogame, vaglierà la 
qualità dei prodotti da voi invia- 
ti. La fama sarà il giusto premio. 

Allora, o vj sintonizzate ogni 
giorno su RAl 2, ore 14,35, 
TANDEM o siete fuori. 

Pinuccio Bisellf 
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Un programma completo 
per il word processing 


Non era mai successo. Nessuna rivista è mai riuscita a regolare ai suoi lettori un programma 
professionale per l'elaborazione dei testi. Commodore Computer Club sì! 


10 P0KE53468, 14 SPRINT “X > iPRiNT" I" ; JFORN=2T039 sPRINT"“" ? sNEXTN :PRINT"| " ; 
20 F0RN=2T023 SPRINT" P" jSPC<38> J “I ” t tNEXTH 
30 PRINT" l“ .» tF0RN=2TÙ39sPRINT , '„ l ‘ f sNEXTN tPRINT"l "t 
40 PR T NT " UT : TAB < 5 j " O ORO 1 R O C E S S I N G" 

50 PR I NT : PR I NTTfiB < 1 5 > " # * # * *" 

60 FRI NT SPRINT 

70 PRItir!PRIMTTAB<6> "COPYRIGHT 1331 BITS & BVTES" 

90 PRINTTfiB<5>"VIftLE MONTE GRAPPA 4 - MILANO" 

00 PRIHTTFlB< 12> "TEL . 02 - 573344" 

95 FORT “IT 03000 sNEXTT 
1Q0 CLR jDIPIR* < 150> 

101 FORNI = 1 T04 8 s XI $=X1 aNEXTXl 


ts RQ Q. TO QQQ Q 0 Q Q Ù QQO CÙt! Q Q Qtì ' 


102 X 2 *=“ 

103 FORNI = 1 TO40 sX3®=X3#+“ “ sNEXTXl :FORX1=1TO40 :X3*=X3$+*'|f" sNEXTXl 



104 X4*=CHR* < 1 3 > 

110 PRI NT “DELEZIONE FUNZIONI s" :PRINTX14j 

120 PR I NT *" ÌPCS=CR£flZ l OHE TESTO" SPRINT 5pRINT"^»=PRELIEVO TESTO OR NOSTRO" 

130 GET2* f IFZ#«"C ,I THEN1008 

131 - IFZ*=“P n THEN2000 

132 GOTO 138 

1008 PR1NT "3— REAZIONE TESTO" 

1018 PRINTXl*jLEFT$<X£*,13> jXI*jLEFT*<X2*,22J?Xl#J 
1020 N=1 

1100 IFNM40ORFREC0J<1000THENGOSUE(5100 SGOTO1200 

1181 GOSUB4008 

111® IFLEN<B*X37THEN1 140 

1120 GOSUB4200 

1138 «Ì<N)=G* :N=N+1 sGOTOl 1 10 

1140 R*>;N>=B*sN=N+ 1 : IFRIùHT$>:Ai<N-i>,l > = "®"THEN1600 
1150 GOSUB4300 
1160 GOSUB5080 

1 280 PR I NTLEFT* < X2£ r 23 ? ; ” ^-^PROSEGUIMENTO " 

•1 201 PRI NT " 3_»=L I ST ING " ; SPC < 22 > s " 3EB=E0 1 T I NG " ; 

1210 GETSl'F ; IF31*= ,, P"ORSl#="L”ORSI ®=‘‘E ,, THEN1212 

1211 GOTO1210 

1212 PRINTLEFT*<X2^,,23> ;X3 * ; " ?X3* ? 

1228 IFS1Ì= ,, P , ’THEN1 108 

1221 IFS1*="L"THEN1230 

1222 GOTO 1308 
1238 IFN<2TH£N1200 

1 240 GOSUB4900 ; GOTO 1 200 
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1300 

IFNO1THEN1200 


1301 

PRINTLEFT*.;X2$,23>,*‘ , .ai»=IMSERII’1ENTCi" ^SPC(15> s"SC**CGRREZIONE" . 

1302 

PRINT'^^ELINlNfiZIONE" jSPC<l2;>;"tf^FINE EDITING"; 


131G 

GETS3$ : IFS3$= U I ,J 0RS3$= u C l, QRS3*="E n 0RS3$="F ,, THENÌ312 


131 1 

G0TO1310 


1312 

FRINTLEFTSQ<2#^23> ?X3* ? "JT 


1320 

1 FS3*= " I " THÉN 1 330 


1321 

I FS3*= "C " THEM 1 44© 


1322 

1 FS3S= "E " THEH 1 460 


1323 

GOTO 1 20© 


1336 

I FH> 1 40ORFRE <0X1 ©00THENGOSUB5 1 0© * GOTO 1 300 


1331 

IFN:>STHENPRINTLEFT*<X2*,231 ;X3$;''“0PCl QUALE RIGA ? "»:GOTG1340 

1332 

GOTO 1300 


1340 

GOSUB4100 :Rl=7fìL<8*> s IFR1O0GRR1>-N-1 THEN1330 


1341 

PR I NTLEFT *0<2*,23> ; K3* ; s GOSUB43B0 


1359 

vv =0 : FORH=R 1 TO 1 STEF- 1 : W^V V+ 1 


1 35 1 

PRIHTLEFT*<X»,15-VV> jSPC<4-LEN<STR$<M}>> ;N1D$ <STR*CN> 

.2);“ ", 

! 352 

PRINTP*<M> f : IFW— 12THEN1 360 

1 353 

NEXTM 


1360 

GOSUB4000;M^1 


1370 

IFLEH<B*J<37THEM1400 


138© 

GO SUB 4200 


139© 

H#<M>=G*:M=M+i :GOTO1370 


14©0 

cM=M+l 


1410 

IFRIGHT$<H*<M-1 >, 1 >=“e"THENGOSUB4500 : GOTO 16 


1411 

GD5UB4400 


142© 

GOSUB43G0 s I FN>1 THEHGGSUB4800 sGoTGl 43G 


1421 

GOTO 1106 


1439 

R0=GsGOTO1300 


1440 

1 F H> 1 40OR F R E ( O X 1 000 THE KGOSUB5 1 0© : GOT 0 1 30© 


1441 

IFN>1THENGOSUB4600 : GOTO 1450 


ì 442 

GOTO 1300 


1450 

VV=0 :FORM=R 1 TO 1 STEP-1 s VV=VV+1 


1451 

PRXNTLEFT*<X2*,15-VVi ;SFC<4-LEN<STR*<t1> > > jMlO* <STR*<Cf1> 

} 11 

1452 

PRINTA*<M>; : 1 F V V= 1 2THEN 1 4S0 


1453 

HEKTM 


1466 

GGSUB4700 


1476 

R1^R1-1 ;R0=i ;GOTO1360 


148© 

I FN> 1 THEHGO3UB4600 sGOTO 1 490 


1431 

GOTO 130© 


1490 

GOSUB4700 : R 1 =R 1 - 1 t R0=G : I FRI =0THENR 1 « 1 


1500 

I FM> 1 THEHGOSUB4800 


151© 

GOTO 130© 


1606 

GOSUB43©© 


161© 

G OS LI B 500© 


1626 

TFRR-1THÉN1630 


1621 

PR1NTLEFT* <X2^^23> j J> j^fcLISTING 1 


1622 

PRJNT"j^»=FINE CREAZIONE TESTO" jSPC<9> ; "S^RI PRESA" ; 


1623 

GOTO 1640 


1630 

PR I NTLEFT* < X2* , 23 > ; 11 I ST I NG " 


1631 

PRlNT"iJM£=FlN£ REVISIONE TESTO" jSPC<3> ; ,, -*«=RIPRESR” ; 


164© 

GETS4* 


1641 

IFS4*="L ,, GRS4$="F"ORS4$= ,, R"THENPRINTL£FT*(X2*,23> ;X3*; 

"M" jX3*l : GOTO 1650 ; 

1642 

GOTO 1640 


1650 

X FS4 11 L 11 THEHGOSUB4900 : GOTO 1620 


1 651 

I FS4*= " F “ THEH 1 700 


1660 

A*(N-1>=L£FT*<A#<N-'1>,LEN<A*<N-1 >>-!> s IFA*<N-l) = "*THENhNN-l 

1670 

GOSUB4300 i I FN> 1 THENGOSUBS000 


1680 

GOTO 1200 


1700 

PRI NT "^ELEZIONE SUB-FUNZIONI i H tPRINTXi*; 
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1710 PR1 NT" JiSfcSTRMFFt TESTO" SPRINT iPR INI" flS5=REGISTRAZI0NE TESTO SU NASTRO" 

1711 PRINT sPRINT"3v»=REVISI0NE TESTO" SPRINT 

1712 PRINT"tf'l»=NUOVf1 ESECUZIONE PROGRAMMA ":PRINHPRINT ,, JF»=FINE PROGRAMMA" 

1720 GET2*sIF2*="S"THEN2100 

1721 IFZ*="R"THEN1S00 

1722 IFZ*="V"THEN1900 

1723 IFZ*= ,, N ,, THEN100 

1724 IFZ*="F , ‘THEN3000 

1725 GOTO 172© 

1806 PRI NT "INTRODURRE I SEGUENTI DATI i" iPRINTXl*; 

1801 PRINT"XOME DEL PRESENTE TESTO "t 

1802 GOSUB4100 :FFÌ=B* : IFFF*=" "ORLEN<FF*)>10THENGOSUB5920 IGOTO1802 
1810 OPENl,l,I,FF* 

1820 PRINT"3a_EGlSTRAZI0NE IN CORSOI"; 

1830 FORM=lTON-l 
1840 B*=CHR*C161 

1850 FORI=lTOLEH<B*> 

1851 IFMID*(B*,I f \ )=","THENB*“LEFT#<B*,I-1)+CHR*<162)+MID*<B*,I+1> 

1860 NEXTI 

1365 FORI=lTOLEN<B*> 

1866 IFMID* <B*, I ) = 1-1 >+CHR*< 163>+f1I0*<B*, 1+1 ) 

1367 NEXTI 

1870 PRINT#l ,B$;X4$; «NEXTM 

1880 CLOSE1 IGOTO1700 

1900 PRINT"3_EVISI0NE TESTO" 

1910 PRINTXÌ*;LEFT*<X2#,.15);X1*;LEFT*<X2*,22) *X1S; 

1920 RR=1 s GOTO 1630 

2000 PRI NT "INTRODURRE I SEGUENTI DATI i" iPRTNTXl*; 

2001 PRIHT"><1ME DEL TESTO DESIDERATO 

2002 GOSUB4100 iFF*=B* • IFFF*<=" n ORLEN<FF*»10THENGOSUB5920 «GOTO2002 
2018 OPEN1,Ì,0,FF* 

2020 PRINT n aan*ÉLlEVO DA NASTRO IN CORSO*"; 

2030 N=N+1 

2040 INPUT#l,B#sB*=MID*(B*,2> 

2050 FORI=iTOLEN<B*> 

2031 IFMID*<B*,I,1 )=CHR#<162>THENB*=LEFT*<B*,I-l)+ , V , +mD*<B»»I+l> 

2060 NEXTI 

2065 FORI»1TOL0HC8*5 

2066 IFMID*<B*,I,l?=CHR*<163>THENB**=LEFTf<B*,I-l)+-" r'+MIO*<B*, 1+1 > 

2067 NEXTI :ft*<N)=B* 

2070 IFRIGHT$<R6<N) , 1 >*="0”THENN=N+1 sCLOSEl »GOTO1?80 

2071 GOTO2030 

2100 PRINT"3-EFIN1RE I SEGUENTI PARAMETRI DI STAMPA i sPRINTXl*; 

2110 PRINTLEFT#<X2*,3);X3F;"-ORMRTD VERT. FOGLI □ < IN RIGHE? 

2111 GOSUB4I00lVl=VAL<B6) i IFVl<lTHENGOSUB5920tGOTO2Ì 1 1 

2120 RRINTLEFT#<X2*,S?;X3*;"2UMER0 MAX. RIGHE PER FOGLIO 

2121 GOSUB4100iV2=VAL<B*> : IFV2C1CRV2>V1THENGOSUB3920 (G0T02121 

2130 PRINTLEFT*<X2*,7);X3*;'\NTERLINEfl ; 1-2-3) "s 

2131 GQSUB41 00 |V3“VAL<8*> 

2132 IFV301 ANDV3O2ANDV3O30RV2*V3>Vl THENGOSUB5920 iG0T02 131 

2140 PRINTLEFT*<X2*,9) ;X3*; “7UMERQ RIGA INIZIO STAMPA 

2141 GOSUB4100;V4*VAL<B*) s IFV4 < 1 0RV4>V 1-V2*V3+ 1 THENGOSUB5920 sG0T02141 

2142 V4-V4-1 

2160 PRlNTLEFT*<X2*,ll);X3*; n _ORMATO ORIZZ. FOGLIO <IN CAR. >' 

2161 GOSUB4 100101 =VAL< B*) 1 IF0K1 ORO 1 > 132THENGOSUB5920 1 G0T02 1 61 

2162 01=01-1 

2170 PRINTL£FT*<X2*,I3)|X3$j "7UMER0 MAX. CARATTERI PER RIGA 

2171 GOSUB4100 i02* = VAL<B6) 3 IF02< 1 0R02>0 1THENGOSUB5920 1GOT021 7 1 

2180 PRINTLEFT*<X2*,15);X3*;"SflRGINAT0RE SINISTRO <IN SPAZI) 

2181 GOSUB4100 i 03= VAL <BS) s IF8*=" "ORO3<0ORO3>O1-O2THENOOSUB5920 IGOT02181 



2190 PRINTLEFT$<X2$,16:> 7X1*7 j PR I NT " -ORRE2 I OH I <S-N> 

2191 GQSÙB4l00sIFB*="S"THENPRINTLEFT*<X2*, 17) ;X3 S; :G0T021 10 

2192 I FB*0 " H " THEHGG3U65920 s G0T021 9 1 

2260 PRINT "SCEGLI ERE IL TIPO DI STAMPA i " s PR 1NTX1 * 7 

2210 PRINTLEFT*<X2*,3>?"N=NORMRLE V=VIVO S=SIMMETRICA " ; 

221 1 G0SUB4100 : IFB*= "N"THENW1 = 1 :GOTQ2215 

2212 I FB*= " V "THENW 1=2 t G0T022 1 5 

2213 IFBS“"3 , ’THENWÌ=3:GQTQ2215 

2214 GOSUB59207GOTG221 1 

2215 PRINTLEFTS<X2*,5J 7 ,, -OOIFICR MINUSCOLE <S-N> 

2216 GOSL«B41B0ilFB*= ,, S"THENMK=l :GOTO2220 

221 7 IFB*="N”THENMK=0 :OOTO2220 

22 1 8 GOSUB5920 ! 00TO22 1 6 

2228 PR I NT " SPEC I F I CARE NUMERO COPIE DA STAMPARE i 11 :PRIMTXI*j 

2230 PR I NTLEFTSC X2*,30 : "/LIMERÒ COPIE " t 

2231 GGSUB4 1 06 : WS- VAL < B* > : I FW3< 1 THENGOSUB5920 :G0TG2231 
2248 FRI NT" SPECIFICARE SE IL TESTO PREVEDE" 

2241 PRINT" IL PRELIEVO DELL' INDIRIZZO DA NASTRO" ePRlNT”0 DA TASTIERA:"- 

2242 PR1NTX1 tf 

2258 PRINTLEFT*<X2*,5>7"S=SI N=NO ” : 

2251 GOSUB4103:IFB*="N"THENU4=8:GOTO226& 

2252 I F B* O " S " THE NGO 3UB5328 :G0T02251 

2255 PRINTL£FT*<X2*,5> ;X3*7"N=GA NASTRO T=OA TASTIERA " ; 

2256 GOSUB4108:IFB*="N"TH£NU4=1 sGOT022S0 

2257 I F 6 *= "T" THENW4 =2 : GOTO2260 

2258 GO3U85920 5GOTQ2256 

2268 PRINT" XPTARE PER L'AVANZAMENTO A FINE FOGLIO:" :PRINTXl*.f 

2270 PRINTLEFT#<X2# ,3>.:"F1=MANUALE A=AUTOMATIC0 " ; 

2271 GOSUB4109 : IFB*="M ,, THEHH2=1 -GOTO2230 

2272 IFB*=“A"THENW2=2tGOTO2280 

2273 GOSUB5920 :GCiT02271 

2288 FRI NT "INTRODURRE I SEGUENTI DATI : " sPRIHTXl *7 
228 1 1 FW40 1 THEN2292 

2232 PRINT" /OME DELL'ELENCO VOLUTO "7 

2233 G0SUB4 1 80 :FF*=B* : I FFFi=" ”ORLEN<FFÌ »1 0THENGOSUB5920 rGOT 02233 
2290 GPEN 1 , 1 , 0,FF* :PRINT tPRINT 

2292 PRINT" | IPO DI STAMPANTE <CBM-NON> "7 

2293 G0SUB4 1 08 : P*=B# 

2294 IFP*=“CBM‘‘THENP=4 :G0TO2297 

2295 IFP*="H0H"THEHP=5 :G0TD2297 

2296 GOSUB5920 :G0T02293 

2297 0PEN2 , P s I FP=4THEM0PEN7 ,4,7 
229S I FMK= 1 THENGOSUB5950 

2308 F*=“" : PRINT" RISTAMPA IN CORSOSI 

2310 FORO2=1TOH3:N=0 :D*="’* !klS=0 sPRINTLEFT*>;X2*,4) ; "-OP1A NO. " :Q 2 t 

231 1 IFW4O0THENONH4GOSUB5700.5800 
2320 GOSUB5300 

2330 H=N+1 :H*=Af <N> ; IFRIGHT*< A#, 1 }O"#"THEN2340 

2331 WE=W5+1 jfl^=LEFT*<A*,LEN<R#>-l>+J*CW5>+CHR*C135> :J*<W5>=" " t IFW5=4THENW5=0 
2340 I FLEN<Ctt ) >0THENA*=D:f +A* iD#= " “ 

2350 L1=LEH<A*> : IFL1<=O2+1THEN2400 

2351 GOT 02500 

2408 IFRIBHT#<A*,1>=CHR*<1&5>TJHENF*=A* :GÙ3UB5500 :A*=" " sGQSUB5200 :GOTG2430 

2410 lFRIGHT*<fi*,l>O“e"THEN2420 

2411 F$=A* SGOSUB5500 : A*=" " sGGSUB5200 SGDSUB5400 : NEXTQ2 S N=N+ 1 

2412 CL0SE1 :CL0SE2 : IFP=4THENCLOSE7 

2413 GOSUB6880 sGOTOl 708 

2420 1 FL i 0020RR I GHT * < A* . 1 >=CHRf < 185>0RRIGHT*(fi*, 1 ) = "®"THEH2430 

242 1 F*=A* :GOSUB5500 :A*= " " :GOSUB5200 
2430 IFQ1=V24V3+V4THENGOSU85400!GOSLIB5300 
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Scrivi anche tu 


La collaborazione a Commodore Computer Club è 
aperta a tutti gii utenti di sistemi CBM che abbiano 
sviluppato programmi e routine originali e d 'inte- 
resse generale o die desiderino fare partecipi gli 
altri lettori delle scoperte e delle osservazioni fatte 
per una migliore utilizzazione di queste macchine. 
Allegate un breve articolo in cui spiegate a che 
serve il programma, come funziona, su quale com- 
puter gira e con quale configurazione {espansa, non 
espansa, ecc,). 

• Iniziate tutti i listati con delle Rem indicanti il 



iiiiltlUWH 


titolo del programma, il nome, l’indirizzo ed il tele- 
fono dell'autore. 

* Inviate i Listati su disco o su cassetta, (su carta 

verranno irrimediabilmente cestinati). 

Per compensarvi per questa spesa la redazione vi 

spedirà a stretto giro di posta due cassette e/o di- 
schetti nuovi per ciascuna cassetta da voi inviata, 
ittdipcndentemcnEe dal fatto che il programma regi- 
strato venga accettato per la pubblicazione. 

Ciascun articolo e/o programma pubblicato, in- 
vece, verrà compensato con l 'in via d'una intera sca^ 
tola di cassette e/o dischetti. 

Gli autori, naturalmente, si assumono ogni re- 
sponsabilità circa ^originalità dei lavori inviati i cui 
diritti di riproduzione sì intendono ceduti illimita- 
tamente all'editore di Commodore Computer Club 
per l'utilizzazione sulla rivista, per la parteciparlo- 
,nea banche per lo scambio di programmi e cosi via. 




Ogni giorno in Europa sì apre un nuovo computer shop. 

Un pubblico sempre più numeroso è attirato verso il person 
e si rivolge ai negozi specializzati per trovare la sua marca 
preferita. 

Tu che hai capito qual è il futuro dei computer e hai deciso 
di aprire un negozio, 
cerchi un nome che dia prestigio 
e una organizzazione che 
non ponga vincoli ma offra 
vantaggi concreti. ^ 

Computeria vuol dire negozi 
di computer fin dal 1 979. 

Computeria è anche una 
organizzazione che ha avviato 
rapporti di collaborazione 
con tutti i principali fornitori, 
perciò i suoi affiliati possono 
scegliere e vendere le marche 
più prestigiose e richieste. 

E inoltre Computeria ti dà un prezioso 
know-how, una ricchissima dotazione di 
programmi, supersconti esclusivi, 
vantaggi economici sul leasing. 

E tanta pubblicità. 

Se vuoi essere libero di scegliere quello che 
vuoi vendere nel tuo negozio, 
l’organizzazione Computeria - ' 

è la tua scelta obbligata. 







CMRIERIK 

La catena senza catene. 
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VIDEQGIOCHI 
disponibili varie 


cassette videogame, 


PER PER CHE 


si possono cotfegare 
di rettamente} registratore, 
dedicato, floppy, 
stampante, joystick. 


IO 


VÌC 20 è ii computer più diffuso nel móndo, dire 
un milione di esemplari venduti. Perchè? 
1. VIC 20 è facile da usare : lo colleghi alla TV e premi 
i tasti. Tutto qui. - 2. Ci puoi giocare: dagli scacchi agli 
invasori spaziali, e puoi inventarti ì tuoi giochi. 
3. Lo usi per la scuola, per risolvere problemi e 
compiti. - 4. Lo impieghi in casa, per la contabilità 
entrate-uscite, ma anche perle ricette e perii bioritmo... 
5. Costa solo 423.000 lire più iva. - 6. Puoi imparare 
a nmnrammare in Basic, la lingua del futuro. 


cóme " computer dell'anno'' dalle 
riviste internazionali di informatica. 

8. È delia Commodore, la N° 1 in Europa e in Italia 
' ' campo dei Personal Computer. 

Perché non farti un regalo Intelligente? 

fs Commodore 

COMPUTER 


le con 66 


nom 

512 segni 
per creare 
ci, disegni, 
vìdedgìochi. 

SOFTWARE 
una vasta gamma di 
programmi per tutte 
ìe necessità. 


SUONO 
3 toni e 9 ottave 
disponibili per creare 
le tue musiche ed 
effetti speciali. 








2440 IFL£N<fl*>>0THEND*=fì$ iM= a ” i IFRIGHTS <0* ,i)O rt “ 4f 

2450 G0TO2330 

2500 IFG^2>«L 1 THEN2350 

2510 FORI =02+1 T023TEP-1 ìC*=M I D$ < &$ , I , 1 > : I FCS- " " fì NDFIID* < R*> 1-1 , 1 >O m "THEN2530 
251 1 IFC$=" ! ,, ORC^ ,, > ,, 0RC*= , ^ it aRC^= ,t * "ORC*»” t"ORCS=" s "ORC$= "?"THEN2513 

2512 GGT02514 

2513 IFI <02+ 1 THEM252B 

2514 MEXTJ;X"02 

2520 H$=LEFT#<R$,, I > sD*=M I I +1 > :R*“ PIM :G0T0254© 

2530 H$=LEFT$CR$, I“1 > sD#=M I D* < R# r I + l> 

2540 IFLEFT$ CD*, 1 > = " " TH£NO*=M TOSCO* , 2> :G0T0254© 

2550 5GGSUB5500 sfi$= n " sGOSUB5200 

2560 IFQt=V2*V3+V4THENGDSUB5400 bGGSUB53B0 
2570 G0T02348 

3080 PGKE5946B ,12: PR 1 NT '* 3FI NE PROGRRMMR" :EN0 

4000 PI =0 :PRINTLEFT * < X2$ , 1 6 > y :GQSUB4100 : 1 FB$= J ' " THEHBS^CHRS < 1 ?2> 

4010 IFLEFTS<©*,l><>CHR*<62>THEN4Gt30 

401 1 Pl=VRL<mD$CB* r 2>> 

4012 IFP1OORP1M20THEN402© 

4013 ES” ,( * f :FDRX1 “1 TOPI sES-ES*" " sNEXTXl 

4814 PRlNTLEFTSO<£*rlS} sX3*.;ES ? :GO3UB4100 sB*=E$+B$ :G0TQ4030 

4020 PRINTLEFT$<X2S, jX3*;LEFTSKX£$,23> J 11 * fi\HRGI NITORE ERRRTOM 

4021 FORT= 1 TO2000 : NEXTT i PR I NTLÉFTSCX2* ,23> ; X3S ; :GOTO4©00 
4O30 RETURN 

4100 B*» 1 '" :Ve0 
4110 PRINT"_" .? 

4120 GETCS sIFCSO" "THENI FRSCCC#>=34THEN4 120 

4121 IFC*-CHR*C160>THENC$=" 

4122 IFC*=CHR*< 141 > THENC$-CHR$ < 133 

4123 IFLEN<e$>*=239”PlRNOW<:>CHR$<20>fiNDC^OCHRS< 13>0RC*=” "THEN4 1 20 

4130 I FC'£=CHR$ < 20>flHOV c *0THENPR 1 NT 11 li* .? ;GOTP4100 

4131 IFC£=CHR$C20>THEN4lS© 

4140 IFC^=CNR*<13>THENPR1NT II || ,f ? :GOT04190 

4158 IFGS=CHR$Ca950RCS^CHR^<62>THEHPRINT ,, lt>"> :B$=E*+CHR$<62> aV=V+Ì 1GOTO4110 
416© IF(^CHR*t I7)THEHPRINT"|L. n ; sB$=B*+CHR*< l£5!> ;V=V+Ì iGQT04190 

4170 PP I NT " ||" e :6*=B*+CS iV-V+1 s 1FCS O ll G''RNDC* O*'#" THEH41 i& 

4171 UOTO4190 

41©e PRI NT" HI IH"; :B*"LEFT*<B*,LEN<B«>-n aV-y-1 (GGTQ4110 
4190 RETURN 

4200 FOR I *3610 1 STEP~ 1 iF*»MI0$<B$, 1,1 > 

42G1 i FF^= 11 «’nRFS= k1 * |a 0RF$=" M 0RF$=" , ,t 0RF^=* 1 - ”0RF*“ n s *0RF*- u ; " 0 RFS“ "?"THEN42l © 
4282 NEXTI t 1=36 

4210 QSMLEFT*<B$,I > 1 + 1 > 

4220 RETURH 

4300 F0RXX<*T0i4iPRINTLEFT*<X2$,XX>;X3*; jNEXTXX 

4301 FORXX=16T021 a PRI NTLEFT* < X2* ,XX> ? X3* ; iNEXTXX 
4310 RETURN 

4400 F0Rt1M~N-lTQRl +1 STERNI :R* < Mfl+M- 1 > “fi* CTPP sNEXTMM 
4410 FORMULI TOM-l ;fì* <R1+IHN>“H*CNM > ìNEXTMH sN=N+t1-l 
4420 RETURN 

4500 FQRMM= i TOM- 1 :R$ iNEXTNN 
4516 IFH”1>=R1+HTHEHFDRHN=R1+MT0H”1 :R$CMN> = ,k " sNEXTMM 
4520 N=R1+M 
453© RETURN 

4600 PRINTLEFTSCX2S ,23>;X3$ ;"*URLE RXQR ? '* } 

4610 GOSUB4l00iRI»VfìL<B*> ; 1 FR 1<=0QRR1 >N- 1 THEN4600 

46 11 PRI NTLEFT * < X2£ ^ 23 > ; X3^ ; ! GOSUB4300 
4620 RETURN 

470G F0RNM=R1T0N-1 ? H$ < H!i > =ft* < MH+ 1 ) ; NEXTMtl : N=N- 1 
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4710 RETURN 

4860 W=0 sFORM=Rl+R8TON-l :VV=VV+i 

4801 PRlNTLEFT#CX2*.VV+2>jSPC<4-l_EN<STR*<N>>>;mD*(£TR*Cri> r ZÌ “ ? 

4802 PRINTfmw> f iIFW=12TNEN4S10 

4803 NEXTM 
4810 RETURN 

4900 DDSUB4300 :VV=9 sFORt1=lTON-l 

4910 VV*W+1 tPRINTLEFT#<X2*,VV+2> j!SPC<4-LEN<STR*CM> > ? ;MID*(STR*CM> ,2>i" 

4911 PRINTR$<M>; t IFVV=12THEN4920 

4912 NEXTM :GOT04968 
4920 1FM=N-1THEN4968 

4930 PRINTLEFT*<;<2#,23> ' "2I_0*= PROSEGUI MENTO LIST INO" SPRINT" ^B=FINE LIST INC’" ; 

4940 GETS2#! IFS2*^' , L ,, 0R32^= , ’F"THENPRlNTLEFT1i(X2*,23>;X3*r‘ , a , ‘ ;X3$; JGOTO4950 

4941 GOTO4940 

4950 I FS2 $ = ,l L *' THEN G 0 SUB4360 :VV=0 (HEXTM 
4960 RETURN 

5000 VV=B )FORM=N-1T01STEP-1 sVV-W+1 

5001 PRINTLEFT*<X2#, 15-~VV>jSPC<4-LEN<STR*<M) ) > jMID#<STR*<M > "? „ 

5002 PR1MTR$(M> 1 i 1FW=12THEN5010 

5003 NEXTM 
5010 RETURN 

5100 PRINTLEFT*<X2*,23>^ “* gsEMORIft DISPONIBILE ESRURITflB # “? 

5101 FORT = 1TO2008:NEXTT :PRlNTLEFT*C<2$ ,23> ;X3*.( 

5110 PRINTLEFT*<X2*,23>?"JF»=F1NE CREAZIONE TESTO" sPRl NT” ^P=RI PRESE " ; 

5120 GETS5*: IFS5$-"F' , 0RS5*="R ,, THENPRINTLEFT*<X2*,23:> ;X3* J ”ÌT jX3*; tG0T05I30 

5121 DOTO5120 

5130 IFS5^="F*'THEHRF<N-1>=0JP<N-1 > + "0" :GOTO1700 

5140 RETURN 

5260 I FL0= 1 THEN5220 

5201 Q1=Q1+1 

5218 IFV3>1THENF0RQ=1TGV3-1 tPRINT#2," " :Q1=Q1+1 :NEXTG 
5220 RETURN 

5380 Q1=0:IFV4>0THENFORQ=1TOV4 tPRINT#2^'' " lQl=Ql+l sNEXTO 
5310 RETURN 

5400 IFQ1<V1THENF0RQ=01+1T0V1 sPRlNT#2, " " iNEXTQ 
5410 IFW2<»2THEN5450 

5420 PRIHTL£FT*<X2$ , 10) ; FlMBIRRE FOGLIO E PREMERE a_ - l ,-/* “ } 

5430 GETZ* s I FZS= ’■ "THEH5430 

5431 IFRSC<ZF?013THEH5436 
5440 PRINTLEFT*<X2S, 10> *X3$j 
3»50 RETURN 

5000 FX*=" " j IFO2>0THENFORX1*=1TOO2 »FX*=FX4+" ” (NEXTX1 

5001 lFF*-=FXrTHENL0=l [GOTO5680 

5010 IFM1 02THÉN5620 

TOa L2=8ilFRlGHTS<F*,l>-CMR»ClB5>0«RIGHT*<F*,l>»-« B THE>l5522 

5521 GOTO3330 

5522 F*=LEFT*<Ft,LEH<F*>-l) iGOTO5610 
5530 IFLEH<F*>=O2THEM56Ì0 

5540 IFRIGHT$<F*,1 >=“ “THENF*=LEFT*CF$,LEH<F*)-1 > :GOTO5540 
5550 FORI^ltOLEl-KF*) jC**MID*(F*,I ,1 > iIFC*~" “THENL2=L2+1 tNEXTI 
5560 F$»MID*<F*,L2+1 > 

5570 L3“0sFORI=1TOLEN<F*>-1 ìC*=MID*<F$ ,T , 1 > 

5571 IFC*^’ "ORC$=" ! "CiRC*=" , ”ORC#=" . "ORC^" i “ORC*='* r ”ORC*=“?"THE«L3=L3+l 
5580 NEXTI j IFL3=0ORL£N<F$X2THEN56I0 

5590 F0RI=LEN(F*)-1T01STEP-1 sC*=MID«<F*^ 1 , 1 > 

5591 IFC$=” "flNDMID*<F#,I+l,lX>" "THENS594 

5592 IFC*=" ! "ORC*=" , "QRC**". • , ORC*=" : *’ORC*=" i “0RC*="?"THEN3394 

5593 GOTO5600 

5594 Ft=LEFT*<F*,I>+" ,, +MID*<F* , 1+1 > slFLEN<F*>=O2-L2THEN5610 
5600 NEXTI sGOT 0559.0 
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5610 FX$='"’ !IFG3+L2>0THENFORX1=1TOO3+L2 iFX*=FX*+" » sNEXTXl 

561 1 F*=FX$+F$ sG0T0567© 

S620 IFRIGHT*(FS,1)-CHR*< 185>0RRIQHT*(F#, I > = ' , a"THENF*=LEFTS<FS,LEN>:F'*>-l J 

5630 1 FI4101 THEN5640 

5631 FX*-"" iIFO3>0THENFGRX^*lTOO3IFX*=FX*^■ ,, "sNEXTXl 

5632 F#=FX*+F* :GOTG5670 

5640 IFLEFT*<F *,1 > = " '*THEHF*=nlD*<F*,2> :GOTO5640 

5650 IFRIGHT*CF#,1>=" "THENF*=LEFT*<F*,L£N<FS>-1 > sGOTO5650 

5660 FX*= '* " : I F03+ 1 NT < C02-LEN< F$ > >72) <=0THENSS70 

5661 F0RXl = lTOG3+INTC<O2-LEN<F»>>72J jFX*=FX*+" sNEXTXl iF*=FX#+F* 

5670 L0=0*IFF$=" "THENF»=" " 

5671 PRINT#2,F* 

3680 RETURN 

5700 INPUT* 1 ,Jt<0>, J*<2>,4*<3> ,J*<4> ,J*<5> 

5710 I F J* < 0? <> " 359999" THEN3750 

5720 PRINTLEFT*<X2*,-10>^ "* STLENCO INDIRIZZI ESAURÌ TOH ; 

5721 PRINTLEFT*CX2*,12> ; ER CONTI NUORE, PREMERE S_~| ; :MM=0 

573© GETZ* iIFZ*= ,,l ‘THEN5730 

5731 I FRSC (ZDOl 3THEN5730 

5740 MM=MM+1 i IFRIGHT$<R*<MM> , 1 >O"@"THEN5740 

5741 MM=MM+1 ìCLOSEl JCL0SE2 * IFP=4THENCLOSE7 

5742 GOSUG6000 sGOTO1700 

5750 I FLEH < JS <0> > +LEN< J*< 1 J >>-30THEN5752 

5751 FORX1-=1TO30-LEN<J*<0>>-LENCJ*<1>> : J*< 1 >=J*< 1 ) + “ " sNEXTXl 

5752 J*-: n=J*<l)+J*<0> 

5760 J*(4>=J*<4> + '“ "+J*(5> 

5770 RETURN 

5800 PR3NTLEFT*(X2$ ,7> f "INTRODURRE I SEGUENTI ORTI : " »PR1NTLEFT$<X2*,8> *Xl*s 
5310 PRINTL£FTS( X2$,3).;X3:f ?X3* ; "3 " 1 ""^OICE *77 '• / sGOSUB4100 ! J*<0>-B* 

5320 PRINTLEFT*<X2S,1 1 ) ;X3*; "B" jX3*; ; "_IFER1 MENTI » j :GOSUB4190 s I>=*B* 

5830 PRIHTLEFT*<X2*, 13> ;X3*j "B" sX3*; "D" ; "✓OMINRTI VO “ ; iGOSUB4I08 a J*<2>=8* 

5340 PRINTLEFT*0<2*, 15> sX3*s "M" sX3*J "IT S INDIRIZZO " > :GOSUB4100 t J*(3>=B* 

5850 PRINTLEFT*<X2$, 17>;X3*i "B" jX3* j "3" ; * “1 " > :GOSUB4100 sJ*<4>=B* 

5B60 PRINTLEFT*<X2$ ,19) jX3*j"S" 1X3*1 "LOCALI TR' sGOSUB410© sJ#(5>=B* 

5S70 PRIHTLEFT*>:X2*,21> iXl*i SPRINT"— ORREZIONI <S-N> 

5371 GOSUB4108sIFEt**="S”THENPRINTLEFT*<X2*,22> ;X3S; sGOTG5810 

5372 IFB*C> ,, N ,, THENGOSUB5920 SG0T05B71 
5380 IFLENC J*<0) >^-LEN< J*!:i >)>-30THEN5882 

5831 FORX1 = 1TO30-LEN( J#<0) >-LEN< Jf*< 1 ) > t J*< 1 )=J*( 1 > + ” ’sNEXTXl 
5382 JF*: 1 >“JF#( 1 )+J*<0> 

5890 J*<45“J*<4.'> + “ *'+J*<5> 

5908 F0RX1=7T022 :PRINTLEFT*<X2*,X1 > ?X3* ; sNEXTXl 
5910 RETURN 

5920 IFB*“=“ "THENPRINT”II II" i JGOTO5940 

5930 FORX1=1TOLEN(B*> iPRINT"ll IBI" 1 sNEXTX 1 s PRINT"|( ||" ; 

5940 RETURN 

5950 PRINT “3Ù-0DIFICR MINUSCOLE IN CORSO»"! 

5968 FORI= 1T0N-1 

5961 PRINTLEFT*CX2*,41 >"_IGR IN ELABORAZIONE s 1 1 

5978 FV*="" jFORXl = lTOLEN<A*<n> sF 2*=MID* (fi* < I > ,X1 , 1 > }FX=RSC<FZ*> 

5980 I FF X>64 ANDFXC9 1 THENFX=FX+32 

5990 FV*=FV*+CHRSCFX? sNEXTXl :R*C I >=FV* iNEXTI sRETURN 
6800 IFMK-0THEH6068 

6010 PRIHT"^-ECODIFICA MINUSCOLE IN CORSO»" 1 
6028 FORICI TON-1 

6021 PRINTLEFT*(X2*,4:>s , ’_IGR IN ELRBQRBZIGNE s” ; I ; 

6030 FV*= ,,n :FORXl*lTOLEN(R*(I >> sFZ*=MID*< A*< I) ,Xi,Ì> jFX=RSC(FZS> 

6040 I FFX>96ANDFX< 1 23THENFX=FX-32 

6050 FV*«FV*+CHR*(FX> sNEXTXl :fi*< I >“FV* iNEXTI 

6060 RETURN 
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COMMODORE 64 

SOFTWARE SOFTWARE SOFTWARE 


GESTIONE CONTI CASA 

Gestione completa delta contabilità casa- 
linga voce per voce con richiami e variazio- 
ni sulle entrate ed uscite del menage fami- 
tiare. Cod c/d 0051 

IMPARIAMO IL BASIC 

Corso di programmazione elementare stu- 
diato per apprendere gradualmente, sia le 
tecniche più comuni di preparazione delle 
procedure computerizzate, sia del linguag- 
gio Basic. E' disponibile su normali floppy 
disk. rrvi fìnf&t; 


Cod. c/d 00555 


GESTIONE FIDO CLIENTI 

Gestione del fido ai clienti, sia bancario che 
per ordinativi merci . Riporlo automatico de! 
fuori fido con azzeramento sul tetto massi- 
mo. Cod, c/d 0065 

GEST. CONTO CORRENTE 

Gestione del c/c con aggiornamento dei 
dati e riordino automatico per valuta delle 
transazioni. Funzioni di saldo totali e par* 
ziaii sulle operazioni volute Visualizzazio- 
ne dei movimenti e stampa del rendiconto 
con saldo parziale ad ogni operazione. 

Cod c/d 0066 

GESTIONE CONTI 

Registrazione dei movimenti contabili per: 
clienti, fornitori, conti generali, per periodi 
aziendali, con incassati, sospesi e pad ilari. 
Gestione in partita semplice, con capacità 
massime di 2500 movimenti per conto su 
singolo disco. Stampe ed estrazione def 
conto se iez io nabii i, Cod c/d 0067 

GESTIONE ORDINI 

Gestione delle merci in ordinazione dei vari 
clienti oppure ai fornitori, con aggio rna- 
menlo in tempo reate ed azzeramento 
automatico dell'archivio ad evasione ordi- 
ne. Piccola contabilita del t'evaso, sta par- 
ziale che totale. Totati degti incassi per : l 
periodo in esame, stampa de! tabulato sta 
sull'evaso che sugli ordini da evadere. 

Cod. c/d 0071 

GESTIONE LIBRERIE 

Gestione di una libreria con tenuta e ricer- 
ca di tulli i volumi, sia per codice, che per 
autore e partitolo; ricerca persona li zzata o 
a blochhi settoriali. Cod '. c/d 0086 

CONTABILITA 1 FATTURE 

H programma permette di registrare tutte le 
fatture sia dei dienti sia dei fornitori, come 
imponibile e IVA, con verifica istantanea di 
tutti i movimenti per periodo o globali inso- 
luti o saldati -Estrazione per periodo 0 per 
scheda contabile per facilitare la dichiara- 
zione IVA (clienti e forniton). Stampa glo-’ 
baie archivio, movimenti insoluti, movi- 
menti contabilizzati, estratto per periodo o 


per scheda. Richiamo e ^elezione a stam- 
pa delle scadenze di pagamento. Il pro- 
gramma gestisce £500 movimenti contabili 
per periodo con un massimo di 2500 movi- 
menti per dischetto. Cod. c/d 0120 

CONTABILITA 1 MONOAZIENDALE 
SEMPLIFICATA 

li programma Permette di registrare lutti ì 
movimenti contabili (dare/avere) sia per 
dienti, per fornitori, e per conti generali in 
partita semplice. Possibilità di estrazione 
per bilanci di verifica. Schede contabili 
(clienti/lor nitori) generali (banche/cassa/ 
eie.). Stampa per periodi aziendali scaden- 
ziario pagamenti sospesi incassati e parti- 
tori. Il passaggio tra le gestioni clienli/torni- 
tori/conti generali, non richiede il carica- 
mento di ulteriori programmi 11 programma 
può gestire 2500 movimenti contabili per 
periodo con una capacità massima di 2500 
movimenti per dischetto. 

Cod c/d or 21 

MAGAZZINO GROSSISTI 

La procedura consente la gestione com- 
pleta di un magazzino con tenuta delle 
scorte aggiornate agli ultimi scarichi, scor- 
te minime, ordinazioni e tutti i movimenti di 
magazzino. Dispone stampe divario tipo, 
tutte selezionabili, Cod d/ 0143 

MAGAZZINO E FATTURAZIONE 

AGGANCIATI 

La procedura consente la gestione com- 
pleto di un magazzeno con tenuta delle 
scorte aggiornate agli ultimi scarichi, scor- 
te minime, ordinazioni e tutti i movimenti di 
magazzino, Permette stampe di listini, sta- 
tistiche del venduto, inventario degli articoli 
con selezione per gruppo, articolo, secon- 
do il metodo UFO, e altre. L’aggancio alla 
fatturazione mette a disposizione un archi- 
vio clienti e permette la tornita di un registro 
fatture emesse, la stampa delle fatture, 
personalizzabile con scelta della dima, un 
scadenziario delle (ratte, oltre, natural- 
mente, a il' aggi ornamento automatico delle 
scorte nel magazzino. Cod d/0144 

GESTIONE OTTICI 

Il programma prevede vari registri: uno per 
gli appuntamenti, uno per le schede relati- 
ve a ciascun cliente, un rubrica telefonica. 
Tali registri sono provvisti di stampe e op- 
zioni di vario tipo. E' consentita, inoltre, ia 
stampa di schede di preventivo numerabili. 
La procedura è completata dalla gestione 
del magazzino in tutte le tosi in cui è nor- 
ma I m ente a incoiato. Cod. df O 7 48 

GESTIONE STUDI MEDICI 

Come gestione DENTISTI con l'eccezione 
de I la stam pa d e I pr e ve nt i vo , Cod. d/0152 


DISPONIBILITÀ IMMEDIATA DI ALTRI PROGRAMMI PER OGNI APPLICAZIONE. 
TELEFONARE A: 


leoni 


Àk 


Commodore 
acquista 
programmi 
software 
per i suoi 
personal 
computer 


Negli Stati Uniti centinaia di 
software houses e migliaia 
di persone si sono arricchite 
creando programmi softwa- 
re per i computer della 
Commodore. 

In Italia la Commodore lan- 
cia le stesse opportunità a 
tutti coloro che hanno rea- 
lizzato programmi originali 
per scopi professionali, 
scientifici, didattici e games 
sulle macchine Commodo- 
re VìC 20. 64, CBM 8000. 

La Commodore si rivolge 
invitandoli a richiedere la 
scheda di adesione aH’ini- 
z iati va telefonando a que- 
sto numero: 

02/6125651. 

Tutti i programmi che siano 
ritenuti idonei, saranno in- 
clusi nel nuovo catalogo dei 
prodotti Software Commo- 
dore. 

Può essere una telefona- 
ta che porta denaro. 


20142 MILANO - VIA DON RODRIGO, 6 - TEL. 02/8407378 





Assembler per tutti 


Un tacile approccio at linguaggio “naturate" del vostro computer 


di Alessandro de Simone 


il sistema di numerazione usato 
nei microprocessori è quello bi- 
nario puro e pertanto difficilissi- 
mo ih rappresentare, ma con un 
piccolo artificio si può semplifi- 
care tutto notevolmente ricorren- 
do al sistema di numerazione esa- 
li carnale consiste me di sedici 
sìmboli: 

01 2 3 4 5 6 7 8 9 A B C D 

E F 

Per esempio, il numero 12 in 
base dieci è 1! 00 in binario puro 
e semplicemente C in esadecima- 
le (fig, 1 ), 

Poiché ( tir;. 2) la memoria del 
computer è una successione di 
gruppi di 8 bit ciascuno, detti pa- 
role o bytes, noi dovremmo scri- 
vere mi programma in binario pu- 
ro, proprio come indicato in figu- 
ra 2; figurarsi la confusione che 
ne verrebbe fuori per un prò- 
grani ma di un centinaio di paro- 
le. 

Se però dividiamo idealmente 
con una linea tratteggiata la stri- 
scia 1 otteniamo due gruppi di 
quattro bit ciascuno per ogni pa- 
rola die, tradotti in codice esade- 
eìmale. sono molto più facili da 
scrivere in memoria e da control- 
lare in seguito. Le prime ire paro- 
le in figura 2 anziché 101QIOG1, li 


1MI1UI. 10001 101 si scrivono 
À9 FF 8D ecc. Naturalmente c'è 
bisogno di un programma clic 
traduca da codice esade cimale* 
scritto mediante la tastiera del 
PET utilizzando cifre e lettere, in 
binario puro, dato che il compu- 
ter ragiona solamente con questo 
sistema. 

Tale programma, piuttosto so- 
fisticalo, è residente nei PET do- 
lali di nuove ROM e richiamabile 
battendo l'istruzione SYS(4l. 

Diamo comunque per sconta- 
to che il lettore sappia usare tale 
programma. 

L'esempio considerato in figu- 
ra 2 è un semplicissimo program- 
ma ìn L.M, (linguaggio macchi- 
na). Prima di commentarlo defi- 
niamo l'accumulatore: questo è 
un registro di otto bit interno al- 


! ridir, buse 10 


Indif. Base 
Zona Zona 
alta bassa 

03 3A 
03 3B 
03 3C 
03. 3D 
03 3E 
03 3r 
03 40 
03 41 


Numero 

Numero 

Binano È 

decim. 

esàdec. 

puro 

0 

0 

0 0 0 0 ! 

1 

1 

0 0 0 1 1 

! 2 

3 

0 0 10 j 

3 

3 

0 0 11 

1 4 

4 

0 l 0 0 | 

5 

5 

0 10 1 

G 

6 

Olio 

! 7 

7 

0 111 

s 

3 

10 0 0 

9 

9 

10 0 1 

? 1Q 

A 

10 10 

11 

fi 

10 11 

\2 

e 

110 0 

13 

D 

110! 1 

14 

E 

Ilio 

15 

Figura 1 

F 

1 1 1 t 


la CPU 16502) attraverso il quale 
viene elaborata una grande quan- 
tità di informazioni presentì in 
lui programma. Infatti quando 
facciamo partire i] programma 

Data contenuto nel!'ifidirii2G 


binario 

10101 1001 
mi] un 
i ooo 1 noi 
oooo 1 oooo 

TQ00[ 0000 
o noj GODO 


esadae. 

A9 

FF 

OD 

O0 

80 

60 


■b + fc n ■ - ■ ( « n i 

Bll t-fl- | ■ - ■ 

l 


Figura 2 
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A9 FF 8D 00 80 60 la CPU cari- 
ca il dato A9, c poiché le abbia- 
mo ciotto che la locazione 033 A 
contiene il primo dato da elabo- 
rare, capisce che A9 è ufTistru- 
zione ed esattamente, leggenda 
A9, carica nelPaccum datore la 
parola contenuta nella successiva 
locazione (033B)> cioè FF. 

Tale concetto è di fondamen- 
tale importanza: la CPU non può 
sapere se una certa locazione di 
memoria contiene un dato oppu- 
re un'istruzione. Sa soltanto 
(perchè è microprogrammata in 
tale modo) che la parola di par- 
tenza del programma deve con- 
siderarla come un'istruzione e 
continua l’elaborazione con que- 
sto presupposto. 

Se infatti facciamo girare il 
programma da 03 3 B anziché da 
033 A. la CPU "pensa” die FF sia 
P istruzione da eseguire e va subi- 
to in ‘tilt* perchè non esiste que- 
sta istruzione fra le 15! istruzio- 
ni del 6502. 

L’istruzione A9 è inTistru- 
z io ìi e a due byte, cioè quando la 
CPU legge A9, sa die la locazione 
di memoria successiva contiene 
un dato e non unTslruzione, ca- 
ricato, allora, il dato FF nelPac- 
cu mulato re. leggerà il con le mito 
di 03 3C, die è SD. istruzione, 
questa volta, a tre byte. 

Un’istruzione a due byte vie- 
ne conteggiata nd modo seguen- 
te; comando + dato; cosi simil- 
mente 8D, come tutte le istruzio- 
ni a tre byte, è costituita da: co- 
mando + dato + dato. 

Incontrando 8DJa 6502 ese- 
guirà il comando trascrivendo il 
dato presente nell 'accumulatore. 


nella locazione dì memoria il cui 
i idirizzo è rappresentalo, in esa- 
dedmale, dai dati contenuti nelle 
due locazioni di memoria succes- 
sive a quelle contenente il co- 
mando 8D. 

In parole un po’ semplici Sa 
CPU scrive FF nella locazione.il 
cui indirizzo è 8000 esadecimale, 
Attenzione: il primo byte succes- 
sivo a 8D contiene la pane bassa 
dell' indirizzo i LA= low ad- 
dress) mentre ki terza parola con- 
tiene la parte alta (HA= high ad- 
dress). 

Dato che vogliamo scrivere il 
dato FF. che è in accumulatore, 
nella locazione 8000 scriviamo 
8D 00 80 e non 8D 80 00. Tale 
modo di fare è una caratteristica 
di tutte le istruzioni a tre byte 
che incontreremo prima di scrive- 
re la LÀ poi la HA. 

Dopo aver eseguito V istruzio- 
ne 8 D. la CPU incontra l'istruzio- 
ne 60 (istr. a un solo byte) equi- 
valente al RETURN, Poiché noti 
è siala chiamala alcuna subrouti- 
ne si ritorna automaticamente al 
BASIC uscendo in tal modo dal 
LM Su tale concetto torneremo 
pi li avanti. Per ora basti sapere 
die se in un programma in L.M. 
c'è un RETURN <60).„ in più, si 
ritorna al BASIC 

Vediamo ora a che cosa serve 
il programma appena esaminato. 
La memoria di schermo è rappre- 
sentala da 1000 locazioni di me- 
moria (25 righe per 40 colonne) 
a partire dall 'indirizzo 80 00. 
Scrivendo allora FF in 80 00, ap- 
parirà il simbolo “■*” nella pri- 
ma locazione della memoria di 
schermo (in alto a sinistra). Mo- 


di F i c a n d o opportunamente il 
contenuto di OSOO e facendo ri- 
girare il programma in L.M. Da- 
remo apparire nelFangoIo in alto 
a sinistra tulli i simboli grafici 
i del PEL Si potrebbe obiettare 
j che il medesimo risultato si pote- 
va ottenere semplicemente me- 
diante il BASIC. 

10 PR1NT “V 1 

Ciò è vero, però c’è da fare 
una prima considerazione: per far 
apparire in LM. il sìmbolo 
abbiamo utilizzato solamente 6 
byte: con il BASIC invece occu- 
peremmo ben 1 0 byte, senza coma- 
re che sì è dovuto utilizzare l'in- 
terprete del BASIC impiegando 
molto tempo. La sostanziale dii- 
fere n za fra i due metodi si noia 
quando si vorrà riempire tutto lo 
schermo con il carattere desidera- 
lo, Con il BASIC scriveremmo, 
ad esempio: 


io A«1 




20 6=1 OCX] 



30 PftINT 

’tclr]- 


■' h Et , c r : ; :, H 

40 FOR I 1 

■A TG 

6 

-"-e 

bQ FRI NT 

V" 



60 IN EXT 




70 END 




Eseguendo 

il programma si può 

nettamente 

r seguire 

il formarsi dei 

IGOO simboli. 



Proviamo ora a 

caricare il prò- 

grani ma in 

L.M. 

che segue: 

Ind, pari. 

Dati 



033 A 

A 9 SO 

SD 

4S 03 A9 00 30 

0342 

47 03 

A9 

Fé SD QO 30 E E 

054A 

47 03 

DO 

r Q AD 43 03 CS 

03^2 

03 DO 

01 

60 E E 48 03 4C 

03 6 A 

44 03 


1 1 S 1 t A --8 ■ *8 - 


e... SYS(82 óL. è sorprendente, 
vero? Ma vediamo come gira: 
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t« r • 82 $ 

113 RERD R* ■ IF (=»■“-!• TIhER END 
ite Alt * LEFT*tfl*,t> 

1 iti A2% * RIGHTKht*. I > 

L43 I F RlfC'-R" THEH | 60 
17-8 R L 9 » STRf (RSC<Rl * 

160 If A2f<-R* Th€H [30 

170 R2S - STR*CftSCC*2*>-55J 

100 A * vfìL<01*> # 16 * VflL(F2S* 

Me k*é I * 1*1 
220 C'Oro ne 

220 20TA R9.30, SD, 40,03.fi9.00,&D 
2*0 DftTA 47,03,03^^,00-001 00, ee 
2^0 CRTft 47, 03- D0 - Ftì,RD,48 03, C3 
260 ORTfl 03,00* 01 ,60. EE, 40. 03, 4C 
270 DflTR 44,&3,-l 

REMarks 

03 3 A A 9 bO NelPa cenni n latore 
viene. 1 scrino il numero SO (in ef- 
fetti viene scritto il numero bina* 
rio puro 1000 0000 v non ripeie- 
r e m o p i i \ q u e sto co n ceno), 

033C SD 4$ 03 II valore ora pre- 
sente n tiraceli mu biore (80) vie- 
ne riportato cosi come è nella lo- 
cazione 03 48. Attenzione che 
ridraccumulatore è ancora pre- 
sente 80, 

033 F A 9 00 Neli’aeeuniulaiore 
viene ora scritto 00 cancellando 
i! precedente 80; naturalmente 
ciò che è stato scritto in 03 48 
non viene modificato, 

0341 8D 47 03 Vedi istruzione 
033C 

0344 A9 FF Vedi istruzione 
033 A oppure 033 F, 

0346 SD xx xx l due gruppi dì 
xx stanno a significare che pos- 
siamo scrivere qualsiasi valore 
osaci ec ima Le: infatti quando in se- 
guito faremo partire il program- 
ma. le istruzioni 033C e 0341 
provvederanno a scrivere la parte 
alta e bassa de 11" indirizzo; a que- 
s i o pu nto de d'esecuzione del 
programma, appare in alto a sini- 
stra il simbolo che voglia- 

mo trascrivere anche nella secon- 


da posizione, terza, eoe., fino a 
riempire tutto lo schermo. Dob- 
biamo pertanto fare in modo di 
impartire distruzione 8D 01 80 e 
poi 8D 02 80... fino a 8D FF 83, 
Per evitare di scrivere mille istru- 
zioni l quante sosto le celle dello 


INDIR* OP. MNEMONICO 

ESA, COO. 

033 A A9 LD4#8Q 

033 B SO 

033C 60 — STA 0348 

033D aa 

0336 m 

03 3 F A3 LDA#00 

0340 OD 

0341 SO STA 0347 

0342 47 

0343 03 

0344 Afi LDA#FF‘*-i 

0340 FF (' 

0345 SD STA 8000 

0347 00 * 

0348 80 J 

0340 E E INC 0347 

034 A 47 

0343 03 

034C Ù0 SNE 

034 D F6 

□34 £ AD LDA 0348 

034 7 m 

0350 03 

0351 C9 CMP#B3 

0352 03 

0353 DO BNE 

0354 01 

0355 80 RT$ 

0356 E E INC 0348.J 

0357 43 

0358 03 

0359 4C JMP 0344 — 

035 A 44 

035B 03 


Fig, 3 


sellerina) utilizziamo un loop 
(fig, 3). 

0349 FF 4^ 03 Questa istruzione 
( Lh ! aumenta di una unità il con- 
tenuto della locazione, il cui in- 
dirizzo è 0347: da 00 passa a 01 , 
oppure quando sarà contenuto 
A8, passerà ad A9 oppure (im- 
portante) da FF a 00, 

03 4C DO Fh L'istruzione D0 à 
un’ istruzione a due byte che fa 
parte delle cosi dette istruzioni di 
B RANCH (salto condizionato). 
Arrivati a questo punto, il prose- 
g u i mento d e ir eia bornio ne di- 
pende dal risultato dell 1 ultima 
operazione effettuata. Nel caso 
specifico, se E L 47 03 fornisce un 
valore uguale a OOJhstruzione DO 
viene ignorata ed il programma 
prosegue con V istruzione succes- 
siva (034L ). in caso contrario la 
CPU legge il primo bit dei secon- 
do byte dell' istruzione (fig, 4; 


0344 

A9 



0345 

FF 


F6 

0346 

80 


F7 

034 7 

00 


F8 

0348 

80 


FQ 

0349 

EE 


FA 

034 A 

47 


FU 

0349 

03 


FC 

Q34C 

DO 


FD 

034 D 

F6 

IMI 0110 

FE 

03 4 E 

AD 


FF, 

034F 

■■ 


.... 

0353 

* ■ fe ► 

00 


■ ripa 

0354 

01 

0000 0001 


0355 

60 


01 

0356 

EE 


02 

0357 

a ■ «TS 

A - fa fa fa fa . "SPI «PI P 

+* i * 
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IMI GÌ 10) e, se esso è $. eseguirà 
un salto in avanti, mentre se è I 
(nostro caso J farà un salto indie- 
tro. Per salto si intende il numero 
di parole (e non istruzioni* che 
bisogna escludere per rintracciare 
la successiva istruzione da esegui- 
re. Nel nostro casoJa CPU esegue 
un conteggio alia rovescia parten- 
do dall 1 istruzione successiva a DO 

■ 

t 03 4E), definendola come FF. tu 
seguito va all 5 indietro fino a che 
arriva a! numero contenuto nel 
secondo byte di DO, cioè F6, cor- 
risponde ni e atl’ind. 0345. 

LI programma, allora, conti- 
nuerà ad essere eseguito dalla pa- 
rola successiva (sempre al f indie- 
tro) a 0345. e cioè 0344 Ì A9)- Bi- 
sogna pertanto prestare la massi- 
ma attenzione al secondo byte 
delle istruzioni di B RANCH per- 
che, in caso di errore, potremmo 
far continuare il programma da 
un dato anziché da luì bstruz io- 
ne oppure da un’istruzione inde- 
siderata. ET ovvio che nelle pros- 
sime puntate amplieremo questi 
concetti. Notiamo facilmente che 
il blocco di istruzioni 0344-034D 
sarà eseguito 255 volte fino u che 
cioè 0347 non conterrà 00. con- 
sentendo alla CPU di ignorare 
1)0 F6. Ogni volta che li blocco 
viene eseguito, lo schermo viene 
riempilo di 256 simboli di 
Poiché lo schermo è di 1000 ca- 

p 

ratrerijl blocco deve essere ese- 
guito quasi quattro volte. Vedia- 
mo come: 

034H AD 48 03 carica in accu- 
mulatore il dato contenuto in 
0348, 

035 3 C9 83 Questa istruzione a 


due byte compara, mediante sot- 
trazione. raecumulatore con il 
numero osa. 83: se i due numeri 

d 

risultano uguali fornirà 00 come 
risultato (attenzione: Paecumula- 
tore non viene comunque ‘modi- 
ficato' né tanto meno il nùmero 
esa. 83). 

0353 DO 0] In questo caso, a dif- 
ferenza di 034C il primo bit del 
secondo byte e 0 (fig. 4) e per- 
tanto nel caso in cui il risultato 
delta comparazione cfol sarà 
uguale a 00. sarà saltata una pa- 
rola ed il programma continuerà 
da 0356, 

0355 60 Return subio utine: si 
esce dal L.M. e si ritorna al BA- 
SIC. 

0356 HI 48 03 A questa istruzio- 
ne (vedi 0349} si giunge se il ri- 
sultalo della comparazione 0351 
indica che la HA di 0346 (cioè 
8D 47 80) non è ancora passato 
al valore 83. cioè se siamo ancora 
nella memoria di schermo. 

Riepilogando, il blocco 
0344-03 4 D viene eseguito 255 
volte mentre 0344-0359 viene 
eseguito 4 volte prima di ritorna- 
re al BASIC 

0359 4 ( 7 4403 Isti uzioiie di salto 
incondizionato: la continuazione 
del programma passa all’ istruzio- 
ne contenuta in 0344. 

b. 

ÌQ 0 S V S m 26 i 

Ito GEI AS IF A£- T HE'N 1 f0 
120 A= ASOASi POKE 337 A 
130 GOTO 100 

Il lettore potrà provare la vali- 
dità di questa routine in linguag- 
gio macchina, in precedenza cari- 
cata, con il programmino qui so- 
pra suggerito. ■ 



Guida mercato Commodore 


Prodotto 


Prezzo 

(IVA esclusa) 



Home Computer Vie 20 da 5K 199.000 

Unità di espansione 295.000 

Modulo dì espansione 135.000 

Cartuccia da 3K di memoria 66.000 

Cartuccia da 8K di memoria 99.000 

Cartuccia da 16K di memoria 172,000 

Cartuccia Vie rei 95.000 

Permetta di controllare il funzionamento di allarmi antifurto, porte 
automatiche, telefoni, trasmittenti ed apparecchi similari. 

Vie match 225,000 

Possono essere collegati fino a 16 VIC 20 con un floppy e una 

Stampante {distanza massima 1500 mtl. 

interfaccia IEEE 4S8 175.000 

Interfaccia Centronics 115,000 

HS232-C edaptar 75.000 

HS132-C adapter 75,000 


Commodore 64 


CPU 64K RAM 625 000 

C 64 Esecutiva 1.950,000 

Sistema operativo CP/M 125,000 

Consente di programmare il Commodore 64 in linguaggio CP/IVI, il 
più utilizzato sul Personal Computerà. Permette inoltre di accedere 
alia enorme libreria di Software applicativi CP/M, 

P»t spaed 95.000 

Compilatore basic che aumenta la velocità di esecuzione dei prò- 

grammi di circa 40 volte. 


Stampante platter a colori 375,000 

80 caratteri, per linea, 4 colori, alla risoluzione di 0,2 mm per passo. 
Unità stampante * 450,000 

Stampa velocemente su carta normale quanto appare sul video' pro- 
grammi, lettere, dati, grafici. 

Unità stampante 595,009 

Stampante 80 colonne, bidirezionale, 60 CPS, spaziatura program- 
mabile, trazione a frizione o a trattore. 

Registratore ded icato 120.009 

Per memorizzare facilmente programmi e dati su normali cassette 
magnetiche. 

Floppy disk drive 595.000 

Veloce unità di memoria di massa ad affa capacità. Può immagaz- 
zinare fino a 170,000 caratteri su ogni singolo disco. 

Monitor monocromatico 285.000 

A fosfori verdi 12". 



Per giocare 


Comando per giochi {Joystick) 13.509 

Permette di muoversi in tutte le direzioni, di Iniziare E vari giochi di 
movimento e di "sparare". 

Comando a manopola per giochi [Paddfe} 22.500 

Adatto per ì giochi a 2 persone, esegue movimenti in orizzontate e 
verticale. 


Commodore 4000 


CPU 16K RAM 1 . 285.000 

18K ROM, BASIC 4.0 residente, video 40 colonne per 25 righe, 
tastiera semigraflca. 

CPU 32K RAM 1 385,000 

18K ROM, BASIC 4.0 residente, video 40 colonne per 25 righe, 
tastiera aem Egra fica, 



9000 


' ‘a 


Doppia CPU 134K RAM 2,350.000 

Micro Main Brame Computer a doppia CPU (6502 - 63091 compatì' 
bile con tutte le periferiche Commodore della serie 8000. Include 5 
linguaggi di programmazione. I COBOL, FORTRAN, TCL PASCAL, 
UCSD PASCAL APU, 

Commodore 8000 


CPU 32K RAM 1.675.000 

18K ROM, Basic 4.0 residente, video orientabile o basculante 89 
colonne per 25 righe, tastiera commerciale separata. 

CPU 96K RAM 2,150,000 

18K ROM, Basic 4.0 residente, video orientabile e basculante SO 
colonne per 25 righe, tastiera commerciale separata. Include sistema 
operativo FM/96. 


Commodore 660 


Indicato per applicazioni industriali, col legamento a strumentazione, 
controllo numerico, ecc. Utilizza monitor in commercio. 

CPU 12BK RAM 2,150.000 

CPU 128>C RAM espandibile interri a mente a 2 56 K ed esterna mente a 
96QK, interfaccia RS232C, IEEE 488, porta utente a 8 Bit, Compa- 
tibile con tutte le periferiche Commodore della serie professionale. 
CPU 256 K RAM 2,550,009 

CPU 256 K RAM espandibili esternamente a 96QK. Caratteristiche 

uguali al Mod. 610. 

Monitor 285,000 

Monocromatico a fosfori verdi, 12". 


Commodore 700 


CPU 12BK RAM 2 850.000 

CP.U 128K RAM espandibili internamente a 2S6K ed esternamente a 
960 K, Video orientabile e basculante 80 colonne per 25 righe. Com- 
patibile con tutte le periferiche Commodore delle serie professionali. 

CPU 256 K RAM 3,250000 
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-SUPPORTO: CARTFtìDGE- 


6502 PROFESSIONAL DEVELOPMENT SYSTEM 

Urt sistema ttì sviluppo tei 6602 su cassette che traduce 
d&Lr&ftaem&ler al finguiagg.a macchine in unò 0 due passi 
oor> t a standard mnemamca mos. 

TF/9316-00 L 60 000 


TORG 

Torg 6 un gioco d. abilità ed avventura. Sei intrappolata 
in una griglia, ■devi cercare di evadere e di distruggere 
Orde d mo-etn che ri attaccano per annientari-i. 

TF/9316-01 L. 36-000 


COCO 2 

Un fantastico Computer Games di tipo educativo, che U 
permetterà di creare da sok> i tuoi giochi. Coco 2 ti inge- 
gna la teoria dei giòchi. la q calice dei computerà. i gogn; 
della program risaziane e il disegnò logicò. Cuce- 2 non ri- 
chiede alcuna precedente esperie ma di programmazione 
È richiesta l'espansione iflK. 

TF/0316O3 L, 64.000 


VIC FQRTH 

Un nuovo linguaggio di sicuro interesse che u rasce la la- 
cIJilà dal Basic ella velocità teUtassembfftr, Un rigeo ma- 
nuale a corredo. 

TF/9316-2Q L. 114.000 


HESMON 

Hesmon 6 un monito linguaggio macchina tei 6502 con 
I aggiunta dì SO comandi di utilità, Un potente accessorio 
con molte «un tiri ri Birba non reperibili sugli altri monitor. 

TF/93 16-22 * L. 64.000 


TURTLE GRAPHICS 

Turile Graphics ó un modo esaltante e divariente per in- 
trodurne un orine; piante di concetti di programmazione. 
Un sistema tacile per apprendere il linguaggio de compu- 
ter con più di 30 comandi a disposizione 

1^/9316-24 L, 84 000 


HE5 WRITER 

Un propra mma di Word Processino molto curato e con 
ng morose opzioni tra le duali: Editing compieta sulla 
schermo, giustilicaZiOrttì per centrai ura. numerazione del- 
le pagine, eoe. compatibile con la stampante VC 1$15 o 
Serhosha Gp iQO VC. 

TF/9316-20 L. 64,000 


AGGRESSOR 

Come un vaioraso pilota itevi protegga re i depositi di 
benzina di Stòii&rium dagli attacchi delle navicelle di Zau- 
rien. Stai atlante ai le mina spaziali a al vari tipi di astro- 
navi nemidhe, 

TF/931&-2B L. 84.000 


SYNTHE SOUND 

Trasformato II vostro Vie £0 in un incredìbile sintetizzato- 
ne museale. Ducalo pacAagg fornirà speciali effetti con- 
sentendovi di diventare un abile compositóre musicale. 

TF/0316-30 L 114.000 


GRID RUNNER 

Accanitevi contro il nemico Gnoido che s« ammesse su 
-Gnd" la stazione nucleare neli'crbìta solere renestro. Un 
geco a livello arcade per grafica e sanerò. Livella di diffi- 
coltà a vostro piacimenti* per giocare utilizzare li jgy stick 


SHAMUS 

Alle line rimarrai tu o r Ombrar?! solo tu puoi porre tino al 
regnò dà! terróre del 'Ombra maledetta’ 1 Devi combatte rie 
od nitro Chiunque. 2 livelli CCn 20 stanze piene d. PC bota. 
Che tl dannò la caccia. Le tue bela funzione à difendere il 
palazzo contro gii Invasori Dovrai essere veloce e spieta- 
to) 

TF/9316-34 L. 64.000 


PBOTECTOR 

Le arde delta pitti di Fra^ullen sfanno attaccando le tua 
citta o catturando gir abitanti. Tu devi anulare fa pepata- 
2 one insieme, tra g-a rm andò le he- la Citta ite il a Nuova 
Speranza, sull'auro lato dal vulcano: ma i sopra wsauli 
rtòri sono ancona salvi. Ogni persona dovrà essere nuo- 
vamente trasportate naita (Gaiezza di Verdsnn orhm* che 
il vulcano esploda, travolgendoli tutti!?! 

TF/9316-36 Li 90 000 


PREDATOR 

Fiero come un'equità. tu voti nef croio, difendendo il tuo 
spazio dagli attacchi rfi nemici pennuti. Jùlana a meno che 
sconfiggi j tuoi aderse ri, avanzi lungo la scala di 99 livelli 
di difficolta. Come un'aquila tu espiri A raggiungere al- 
tezza sempre pi u grandi. Un g eco por tutta la eia. Real- 
mente nuòvo e diff arante dar tradizione II giochi 

TF/931 6-40 L. 64.000 


COMMODORE 64 


-SUPPORTO: CARTR1DGE- 


HESMON 64 

HeomPrt é un monitor linguaggio macchina par il 
850£/6St0 con un mmi assemplor, indispensabile per 
tutti colore ohe vog inno programmerà In linguaggio as- 
sembler. 

TF/920O-DO L. 64.000 


RETRO RALL 

^emozionante e dive denta gioco tell'Kòdiey su ghiaccio 
riproposto óra sul computai. Possibilità òi g oca re Tre 2 
gmeatòn tì contro il computer. 

TF/9200’02 L. 64.000 


TURTLE GRAPHICS 

T urne Graphics è un modo scattante e divè'iente pei in- 
trodurre un principiante di coprati* al programmazione. 
Un sistema facile pe r apprendere il linguaggio tei compu- 
le r con più di 30 comandi a disposizione. 

TF/9 200-04 L, 120.000 


HES WRiTER 

Un programma di Word Pnocaasing urtai tc curato a con 
numerose opzioni tra le guai. Edili ng completa solfò 
scherme, gìu si il cozzone per centratura, numerazione del- 
ie pagine, ecc, compatibile con la stampante VC 1515 c? 
Saikoeha Gp lQOVCv 

TF/B2Q0-06 L. 90,000 


GRID RUNNER 

Accanitevi conino i! nemico dròidó Che si ammassa su 
-Gttd- la Si azione nuCtaarta nall'CrOila solare taira stra. Un 
giaco a livello arcade par grafica a sonoro. Li vena di diffi- 
colta a vostro piacimento per giocare utilizzare \\ joytfk*. 


COCO 2 

Un tanta stipò Computer Gamea di lipo educai ivo. che ti 
permetterà di creare da solo i tuoi giochi. Coca ? h mse- 
gna ta teoria dei giochi, la grafica de* computerà. i sagra 
della programmazione e il disegno iogibò. Cooò 2 non ri- 
chiede alcuna precederne esperienza rii programmazióne. 
È richiesta Itaspanaione 16K. 

TF/9205-00 L 90.000 


COCO 

Eccezionale computer games di lipo educativo, che Inse- 
gna le !ocn che fonlarerta i del computer, if linguaggio 
Sesia, còma risòtvara i problemi scomponendo ogni pro- 
gramma in semplici pozzi a simulando l'effetto di ogni 
istruzione Coco ti permette di capire come lavora un 
computer 

TF/9205-02 L, 100,000 


6502 PROFE&SiONAL DEVELOPMENT SYSTEM 

Un sistema di sviluppo del 650? su cassetta che traduce 
dairaasambFflf al lingupgg 0 macchina in uno c- il.je passi 
con lo standard mnemonico mo$. 

TF/02D5-Q4 L. 60.OTO 


RENJI S SPACE RESCUE 

Assume ut cane Benji', stella di molli sceneggiati televìsi 
amen-cani, ìnlrappreh dorai un viaggio attorno al sistema 
solare, alla ricerca d< alcuni scienziati rapiti. Scoprirai le 
menavi-gliè do costo, c combattami centra alieni, irsieme 
a fadalp Hnnj'i Dovrai mettercela varamente tutta per 
SCOpriré te va Sano tenuti prigiontan pii scienziati. 

Ca la tarai? 

TF/9205-06 L. 90.000 


zx ai 


atta!» *!■ Alita BW 

-SUPPORTO; CASSETTA— 


BUDGET MASTER 1000 16 K 

Uno splendido programma per la gestions casalinga. É 
possibile creare una gene di categorie specifiche e vi- 
sualizzare coslantamenle In situazióne de’ mese ih Còrsa, 
dell fuma, acc. 

Tf/0 106-00 L. 36.000 


RIVERSI 1000 16 K 

Un tampso giace del dieta hnavesìmo secolc. anche conp- 
5C;uCc carne Othelfò, presentata per "o ZX 01 in una Tor- 
ma mallo salisti cala e ricca di opzion 

TF/0106-02 L. 36.000 

SABOTAGE 16 K 

Un'intricata avventala per giocatori esperi e dai riflessi 
velóci 

TF/0106 04 L. 30.000 


GULPER 16 K 

Un gioco di g?jalrt;i arcade d» caccia, calture uri uvasiani. 
15 selezióni ai area gioco 9 livelli e 9 velocita lo raòdOnò 
veramente compialo ed antissiasmante 

TF/0 106-06 L 30.000 


é distri tsu i lo da 



TF/93 16-32 


L. 34.000 


TF/9 200-08 


L. S4.000 


Caselfa Postala 10488 MI 





espande all’infinito la tua esperienza 


Q^runnef 







CPU 256K RAM espandibili esternamente a 950K, Video ortentabile 
basculante 80 colonne per 25 righe. Compatibile con tutte le perife- 
riche Commodore della serie professionali 

Dischi __ 

Floppy disk drive 650.000 

Unità di memoria di massa ad aita velocità. Capacità 17QKB. Drive 

singolo. 

Floppy disk drive 1.900.000 

Unità di memoria di massa ad alta velocità. Capacità 343JCB. Drive 

doppio. 

Floppy disk drive 2.125,000 

Drive doppio 1M byte in linea. 

Floppy disk drive 2.450.000 

Drive doppio, doppia faccia, doppia densità 2M byte in iinea. 
Floppy disk drive 2.600.000 

Drive doppio, doppia faccia, doppia densità, 2M byte in linea. 

Hard disk 6.200.000 

Tecnologia Winchester, .5M byte in linea. 

Hard disk 6.700.000 

Tecnologia Winchester, 7.5M byte in linea. 


Stampanti _ __ 

Stampante 625. 000 

B idi rezio naie ad aghi, 60 CP$, SO colonne. 

Stam pante 1 1 95- 000 

Stampante ad aghi 150 CPS, 132 colonne, bidirezionale, trascina- 
mento a trattore. 

Stampante 2,950 000 


— 


Stampante a margherita, 40 CPS, 136 colonne passo pica, 163 co- 
lonne passo élite, bidirezionale, utilizzabile anche con carta da bollo, 
trascinamento a frizione o a trattore, 

Accessori 


Microprocessore 32 K RAM 2-500-000 

Per connettere, in rete fino» 16 GPU RS232, IEEE 488. Centronics. 
Il prezza include (configurazione minima) : controller, terminator, 3 
moduli, cavi, cavo JEEE/PET (per la versione SKL 

Singolo modulo addizionale: 325.000 

1 modulo 
ì cavo 6 piedi. 

Nuovo sistema operativo 95.000 

Per 8096SK o per 8Q32$K con B - 1 oppure con E - 2. Può gestir* 
fino a 16 programmi residenti simultaneamente in memoria. Da a 
disposizione 26K per le variabili e 53K per i programmi. Potenzia 
inoltre il Basic con altri comandi. 

64K RAM 575.000 

Scheda di ampliamento memoria per 8032 & nuovo sistema opera- 
tivo "PM 96" 


GP/Maker 1,450.000 

incrementa fa memoria interna di 64K RAM e permette l'uso di 

tutti i programmi CP/M. 8 bit disponibili. Compatibile con la serie 
3000/4000/8000, 

Scheda ad alta risoluzione grafica 720,000 

Compatibile ai sistemi della serie SOOQ. 

Cavo PET/IEEE 4SE 85.000 

Cavo IEE£ 48B/1EEE 95-000 

Accoppiatore acustico .595,000 

300 baud/sec. 
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settori? intarmati 


concessi on ari autorizzati 


seguite le vostre guiae: 


'TECNODATA 

di Rcssetim Multo & Dall'Olio Attilio 
Via Murrini (3 ('ffaJJ. anteriore) 

43100 PARMA 
Tel. 0521 / 35 079 

PROGRAMMA UITTCIO s.a.s. 
dì Fcttctq Ernia &. C. 

Cono F ruftj 92 A 

jfi m3 COLLEGNO fToxÌntì> 

Tel. $lì/ 41 13S6S 


SDC dj Bngv.pt} Giuseppe C sa i, 
Largo Piomes&i Spetti 5 
36143 MILANO 
T fri, $ 4 35 59 3/ 1 94 6$ 538 

DAT AP LAN s.a. s. 

Via Casx* di Risparmia 5 
30100 SUIZA NO 
Tal 0471 / 47 Iti 

MIDA s tJ, 

Vìa Dietro filippini LA 
37121 VERONA 
Tel. 045 / 59 05 05 


BRENlf ANI MASSIMO 

Vìa Pvtciah Jff (ufi via Chiusi 76 1 
00139 ROMA 
Tel. 06 ' Sì 27 €85 

CSS s.n.c. di Fomasaiv A. & G, 

Via Fra P r Sdrpi &A 
50138 FIRENZE 
Tel. 0 SS 67 96 20 

TES.1N A C- s t.J 

Via CotMvaggie 83 

$9128 NATOLI 

Tef, Q8ì 84 31 £2 - $4 61 St 


CESCOM s.u.c. 

Via Reaunana. 3SS 
9014$ PALERMO 
Tel, 691/ 518021 

STUDIO SINTESI 
K'g Jildìghjerì Gl 
4410Ò FERRARA 

Tel, 0533/33618 


memorie magnetiche per computer. 
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SCOPRI LA DIFFERENZA DYSAN 


1 100% di superficie 
i testata “crror free v 

Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% "error face" mi test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assidi ra n do pr estazi un i 
“error free" anche in 
presenza di 
disallineamento delle 
testine. 


Esclusiva tecnica 
» di Burnisbing 

Solo Dysan garantisce una 
superficie li a specchio" 
grazie alla sua avanzata cd 
unica tecnica di 
^btimishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Speciale 
» lubrificazione 

Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
Lubrifì caz ione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni ‘'errar frec' 
siano esaltate e mantenute 
nel tempo. 


Certificazione 
• totale 

Solo Dvsan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nei 
mondo) che ogni diskette 
prodotta sia stata 
singultir mente testata e 
certi ficaia. 





DATAMATIC 


S.r.l. 


distribuisce per l’Italia 



datamatic 



tratta bene 
il tuo calcolatore 
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